如何在vb6中获取多选ListBox中所有被选中的值？

Question

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

- kimbebot

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

- MicSim