[vb6]Cancellare spazi vuoti

[Alessandro2110]

Ciao ragazzi,


avrei un problema con la listbox:

dovrei cancellare tutti gli spazi vuoti all'interno della lista


Grazi e mille.......

[Luciano79]

Indice = 0
While Indice < Lista.ListCount
   If Trim(Lista.List(Indice)) = "" Then
       Lista.RemoveItem(Indice)
       Indice = Indice - 1
   End If
   Indice = Indice + 1
Wend

Man mano che cancelli, ListCount diminuisce.
"Indice = Indice - 1" permette al ciclo di non incrementare l'indice quando cancelli un elemento, altrimenti non ti accorgeresti di 2 elementi vuoti consecutivi (cancellando un elemento, l'indice di quelli consecutivi diminuisce di 1)

[Alessandro2110]

Grazie