[VB] Listbox multiselect verwijderen

[DinX]

Wel, ik heb een klein probleempje.
Ik heb dus een listbox waar ik waardes aan kan toevoegen.
Met de volgende code verwijder ik ze weer:

code:

Private Sub cmdVerwijderen_Click()
Dim teller As Integer
Dim aantal As Integer

aantal = lstWoorden.ListCount - 1

If lstWoorden.SelCount = 0 Then
    MsgBox "Eerst een woord selecteren voor te verwijderen", vbOKOnly + vbExclamation, "Fout"
Else
    For teller = 0 To aantal
      If lstWoorden.Selected(teller) = True Then
        lstWoorden.RemoveItem (teller)
        aantal = aantal - 1
      End If
    Next teller
End If
End Sub

Het probleem is nu, dat ik een fout krijg bij het verwijderen. (Invalid Property Array Index). Ik weet dat het te maken heeft et het feit dat de listcount anders wordt en de for-lus dus naar de haaien geholpen wordt. Hoe kan ik dit het beste oplossen ?

[whoami]

Van achter naar voor.

[DinX]

ok, bedankt

[whoami]

Op donderdag 25 april 2002 12:21 schreef DinX het volgende:
Heb al hulp gekregen van iemand anders.
Moest dus een do whil loop zijn en daarin de teller terug op nul en het aantal refreshen.
Hier mag een slotje op

Wat een inefficiënte oplossing zeg...

Gewoon for-loopen en van achter naar voor loopen.