Yes or No answer...

In my program, I want a message box to appear, when the user hits "Exit". I have the message box, it asks if they are sure they want to quit. (Yes or No option) Here is the code of the message box:

MsgBox "Are you sure you want to quit?", _
vbQuestion + vbYesNo, _
"Do you qant to quit?"


The message box isnt the problem, its the answer. How do I make it so on Yes, it closes, and on No, it doesnt? I'd imagine it may be some kind of "if" statement but im not sure. Please responde if you may know! :p

MsgBox "Are you sure you want to quit?", _
vbQuestion + vbYesNo, _
"Do you qant to quit?"


Was the code i gave, there is a spelling error. It should read:

MsgBox "Are you sure you want to quit?", _
vbQuestion + vbYesNo, _
"Do you want to quit?"

Thats want, not qant! Sorry!:p

heres how you do it!

response = Msgbox("Are you sure you want to quit?",vbquestion + vbyesno,"Do you want to quit?")

if response = vbyes then
end
elseif response = vbno then
exit sub
end if

there it is! ;)

Dim iRes As Integer
iRes = MsgBox("Quit?", vbYesNo + vbQuestion)
If iRes = vbYes Then End


peet

That code, caused it only to close the message window, upon yes or no! i copied it and psted it, so there was no problem in writing it.

whose code doesnt work?

i'm sure my code works.

response = Msgbox("Are you sure you want to quit?",vbquestion + vbyesno,"Do you want to quit?")

if response = vbyes then
end
elseif response = vbno then
exit sub
end if

cya :D

hmm this works just fine....

Dim iRes As Integer
iRes = MsgBox("Quit?", vbYesNo + vbQuestion)
If iRes = vbYes Then End


peet
:)

Peet's code worked fine. The otherone didnt!:P

hmm ...

bizzyVB's should work as well...

:)

Code:

---

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   
Dim mres As VbMsgBoxResult
 
mres = MsgBox("Are you sure you want to quit?", vbYesNoCancel Or vbExclamation, "My Application")
 
  Select Case mres
    Case vbYes
        'User wants to save file
        Save_File
    Case vbNo
      'Program ends, no save.
        Cancel = False
    Case vbCancel
      'Cancel the exit, app stays running.
        Cancel = True
  End Select
End Sub

---