Как получить все значения, выбранные в множественном списке ListBox в vb6?

Question

У меня есть ListBox в моем проекте vb6, и я установил его свойство для множественного выбора.Теперь я хочу получить все выбранные элементы в моем множественном списке 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