Hej !!

Jag har en listbox, ,, jag försöker markera två rader i listboxen och sedan tryker jag radera knappen för att radera bara de valda radera men när loopen kommer den sista raden som är markerad, då får jag ett fel meddelande som säger så här

" Invalid property arrray index"

jag förstår inte riktigt vad som är felet,,nån som kan förklara för mig????

här är koden:

Private Sub Command2_Click()
Dim m As Integer

For m = 0 To List1.ListCount - 1

If List1.Selected(m) = True Then
List1.RemoveItem (m)
End If

Next m
End Sub

jag har Multiselect 1-simple i listan

/A

För det första är det inte en bra metod, eftersom du hoppar över varannan om du har markerat två i rad. Det bästa är att loopa baklänges.

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

Börja med det, och återkom om felet kvarstår. (Det skulle kunna vara lösningen)

/Niklas Jansson

Tack så mycket för hjälpen,den funkar bra

MVH
/Anders