Another list question

[r3b00t]

Sorry about this guys but ive yet another question if yous wouldnt mind helping me out.

When ive got an item selected in the listbox and click the delete command button, a msgbox appears giving the options of yes to delete or no to cancel the operation.

The code ive got goes like this:

Private Sub cmdDelete_Click()
MsgBox "Are you sure you want to delete this callback?", vbYesNo, "Confirm Delete"
On Error Resume Next
' If Yes is clicked then delete selected item
If vbYes Then
List1.RemoveItem (List1.ListIndex)
End If
End Sub

I know ive got to enter ElseIf vbNo then but dont know what to enter after this =$

Anybody help?!?

Cheers

r3b00t

 

[TheVampire]

You need to use the messagebox function instead of the command.

Private Sub cmdDelete_Click()
Dim Result as String
Result = MsgBox ("Are you sure you want to delete this callback?", vbYesNo, "Confirm Delete&quot
On Error Resume Next
' If Yes is clicked then delete selected item
If Result = vbYes Then
List1.RemoveItem (List1.ListIndex)
End If
End Sub

A vbNo result will simply exit the sub, so you do not need to have a ElseIf line.

Robert

 

[r3b00t]

Cheers m8, all cleared up!

Thanx again

r3b00t