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.Listbox??
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
/ASv: Listbox??
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