Как получить все значения, выбранные в Multiselect 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