-
I need to remove more than one item from a list box...
here is the code
Code:
Private Sub Command1_Click()
ff = FreeFile
Open "c:\windows\desktop\list\list.txt" For Input As #ff
Do Until EOF(ff)
Input #ff, this
List1.AddItem (this)
Loop
Close #ff
End Sub
Private Sub Command2_Click()
'On Error GoTo that
'List1.RemoveItem List1.ListIndex
'Exit Sub
If List1.SelCount > 1 Then
Do Until List1.SelCount = 0
List1.RemoveItem List1.ListIndex
Loop
ElseIf List1.SelCount = 1 Then
List1.RemoveItem List1.ListIndex
ElseIf List1.SelCount = 0 Then
Exit Sub
End If
'that: MsgBox (Err.Description)
End Sub
ignore the comments, those were pieces of code I thoought about using..
this code works fine and dandy for removeing single items, and removing items that are right next to eachother, but if there is an item in between two selected items, it gets deleted also, please help me.
thank you
Dennis Wrenn
-
Thats an indirect way of doing it, try this instead:
Code:
Dim n%
For n = 0 To List1.ListCount - 1
If List1.Selected(n) Then List1.RemoveItem n: n = n - 1
Next n
-
runtime error 381
invalid property array index
and what does the % do?
-
[/code]
Dim n%
For n = 0 To List1.ListCount - 1
If n >= List1.ListCount Then Exit Sub
If List1.Selected(n) Then List1.RemoveItem n: n = n - 1:
Next n
[code]
the % is instead of "as integer"
-
it works,
thank you SOOOOO much...
[/code]
thanks again
