如何获取在vb6中的多选列表框中选择的所有值？

Question

我在我的vb6项目上有一个列表框，我已经将它的属性设置为多选。 现在，我想要将我的多选列表框中的所有选定项目都放到一个变量中，或者放在多行文本框中。我只想获得多个选定的值。

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