Come ottenere tutti i valori selezionati in un ListBox multiselect in vb6?

Question

Ho un ListBox sul mio progetto vb6 e ho impostato la sua proprietà su multiselect. Ora, voglio ottenere tutti gli elementi selezionati sul mio ListBox multiselect e metterlo in una variabile per esempio, o forse su una casella di testo multilinea. Volevo solo ottenere i valori multiselected.

Answer 1

Sfortunatamente è necessario scorrere tutti gli elementi. Ecco alcuni esempi di codice:

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