VB Help

[Archie]

Does anyone know what code to add to this existing code so that a msgbox pops up if there are no items in the list box and I push the remove button. Thank you.

Private Sub cmdRemove_Click()
Dim i As Integer

For i = lstShopping.ListCount - 1 To 0 Step -1

If lstShopping.Selected(i) = True Then
lstShopping.RemoveItem i
End If
Next i
End Sub

Archie Kantzavelos

[softweng]

Try This:

If lstShopping.ListCount < 1 then
MsgBox "ListBox is empty", vbExclamation + vbOKOnly, "ListBox error"
End If

[forty7]

if lstShopping.ListCount = 0 then
msgbox "Removing nothing does nothing"
else
'your code here
endif



I wouldn't do this though. I'd be inclined to enable the cmdRemove button when you add the first item and disable when you remove the last item

thanx/good luck,
adam

[forty7]

ahh, always do less than 1 vs. equal to 0. good call

thanx/good luck,
adam

[softweng]

Yeah I have learned that the hard way before!