list box removal

[kellievb]

hello, im new and i need help with a work project, its a very simple problem i have:

i have created an example of the problem I have:

when either the red or the blue check box is selected, the phrase corresponding to the colour in the list box needs to be removed, i.e all the words 'red' in the list box need to be removed when the red check box is selected.

Thanks!

Kellie

[Forge]

Dim i As Integer
For i = lstRedBlue.ListCount To 0 Step -1   'This means this will check each item in the box. The -1 is due to that the listbox adds 1 extra row.
If chkRed.Value = 1 And lstRedBlue.List(i) = "Red" Then
lstRedBlue.RemoveItem (i) 'If Red is checked then remove that row.
End If
If chkBlue.Value = 1 And lstRedBlue.List(i) = "Blue" Then
lstRedBlue.RemoveItem (i)
End If
Next i

[B]Updated

[vbasicgirl]

when removing multiple items from a listbox you should loop the listbox in reverse.

Dim i As Integer
 
For i = List1.ListCount - 1 To 0 Step -1
 If List1.List(i) = Check1.Caption Then
  If Check1.Value = vbChecked Then
   List1.RemoveItem i
  End If
 ElseIf List1.List(i) = Check2.Caption Then
  If Check2.Value = vbChecked Then
   List1.RemoveItem i
  End If
 End If
Next i

casey.

[Forge]

Both our codes work, but chose which you find easiest to understand.

[vbasicgirl]

Forge, that is not correct because of 2 reasons.

1. what if both checkboxes are ticked ?
2. if two items are the same and next to each other in a listbox then only one will get removed because the loop isnt going in reverse.

casey.

[kellievb]

EDIT: just me being a dummie, thanks for the help guys and gals

kellie

[Forge]

Your welcome : )

[MartinLiss]

Originally posted by kellievb
EDIT: just me being a dummie, thanks for the help guys and gals

kellie

If your question is answered then please help everyone out by editing the first post and adding the green checkmark. Thanks.