[VB6] Eliminare item in un controllo ListBox

[Magicolotto]

ciao come da titolo uso questo codice :

Dim i As Double

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List1.RemoveItem (i)
End If
Next i

selezione col mause Item e lo elimino




e mi da errore

[wallrider]

ognuno ha le sue croci


che errore è!?!

[Magicolotto]

error3 run-time 381

valore della matrice



pero' non riesco a risolvere

[alka]

Meglio se esegui il ciclo inversamente, partendo dall'ultimo elemento fino ad arrivare al primo.

[Magicolotto]

ho provato cosi :

Dim i As Integer
For i = 0 To List1.ListCount - 1 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
Next i

pero' non succede nulla

[alka]

Originariamente inviato da Magicolotto
ho provato cosi :
[...]
pero' non succede nulla

Hai letto il mio suggerimento? :master:

[Magicolotto]

non so contare alla rovesciaaa

[xam85reBanned]

Originariamente inviato da Magicolotto
ho provato cosi :







pero' non succede nulla

LOL
vai da 0 a n>0 a step di -1?

Dim i As Integer
For i = List1.ListCount - 1 To 0Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
Next i

[Magicolotto]

ok grazie adesso funziona

gentilissimiiii

[oregon]

Ma che vuol dire "non so contare alla rovescia"?

Non sai contare da 10 a 1 ???? VVoVe: