Msgbox

[Guest]

How do i use VKokCancel in a message box
I can't get it to work?

regards alvin

 

[JE McGimpsey]

One way:


Dim nResult As Long
nResult = MsgBox(Prompt:="Erase your hard drive?", _
Buttons:=vbOKCancel)
If nResult = vbCancel Then
MsgBox "You cancelled..."
Else
MsgBox "Just kidding!"
End If

 

[Bob Phillips]

Set a variable to the MsgBox results

ans = MsgBox(...)

and test that for vbOK or vbCancel

If ans = vbOK then
...
ElseIf ans = vbCancel Then
...

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Tom Ogilvy]

Sub ABCD()
Dim ans As Long
ans = MsgBox("Ok or Cancel?", vbOKCancel)
If ans = vbOK Then
MsgBox "You clicked OK"
ElseIf ans = vbCancel Then
MsgBox "You clicked cancel"
End If
End Sub

 

[Guest]

Thank you all

So simpel.............................................

regards alvin


"Tom Ogilvy" skrev:

 

[Coolbreeze]

Funny AND helpful... Cheers

One way:


Dim nResult As Long
nResult = MsgBox(Prompt:="Erase your hard drive?", _
Buttons:=vbOKCancel)
If nResult = vbCancel Then
MsgBox "You cancelled..."
Else
MsgBox "Just kidding!"
End If