如何在vb6中的多选ListBox中选择所有值？

Question

我的vb6项目上有一个ListBox,我将其属性设置为multiselect.现在,我想在多选ListBox上获取所有选定的项目,并将其放在变量中,例如,或者在多行文本框中.我只是想得到多选的值.

Answer 1

不幸的是,你必须遍历所有元素.以下是一些示例代码:

Dim k As Long
Dim s As String

For k = 0 To List1.ListCount - 1
    If List1.Selected(k) Then
        s = List1.List(k)
        ' ... do something
    End If
Next