如何在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