MSGBOX help

Hi, I was wondering how you could get a message box with a yes and no option to work. I know how to get the message box to come up, just don't understand how to make it so if they click no, then nothing happens and if they click yes then it will close.

Private Sub mnuexit_Click()

msgbox "Are you sure you want to quit?", vbyesno
End
End Sub


With that code if you click no or yes it will close both times. Wondering how to make it so if you hit no nothing happens.

Thanks

VB Code:

Private Sub mnuexit_Click()
  If MsgBox("Are you sure you want to quit?", vbYesNo) = vbYes Then Unload Me
End Sub

you shouldn't use End to quit your application

I usually use Unload FormMain or something like that, but I was just tring out different ways.

Thanks

Why not though? I don't see much of a difference.

Quote:

---

Originally Posted by Grant1377

Why not though? I don't see much of a difference.

---

End doesn't let the application shut itself down. It's kind of like pulling the plug on your stereo. Unload [form] lets the application clean up after itself. It's more like stopping the CD player, then hitting the power button.

Quote:

---

Originally Posted by MSDN

The End statement stops code execution abruptly, without invoking the Unload, QueryUnload, or Terminate event, or any other Visual Basic code. Code you have placed in the Unload, QueryUnload, and Terminate events of forms and class modules is not executed. Objects created from class modules are destroyed, files opened using the Open statement are closed, and memory used by your program is freed. Object references held by other programs are invalidated.

The End statement provides a way to force your program to halt. For normal termination of a Visual Basic program, you should unload all forms. Your program closes as soon as there are no other programs holding references to objects created from your public class modules and no code executing.

---

i didn't think it freed up the memory, but apparently it does. But, yes, it is unadvised.

If you're subclassing it will crash :)

Back to the topic of the message boxes:

when you do something like:

VB Code:

msgbox("Do you want to quit?", vbyesno)

you need to use a variable, because using the "vbyesno" part means that the computer will record whether the user clicks "yes" or "no" so basically

VB Code:

dim Click as Integer 
 
Click = msgbox("Do you want to quit?", vbyesno)
 
if click = vbyes then
     unload me 'or end, for this part just look at the above post
end if

basically, the button the user clicks returns a 1 or a 0, I think, but i'm not sure, that 1 means yes. Either way, whichever one is returned is stored in the "click" variable, then the if statement checks what's in "Click",

if the user clicked yes, it would unload the form, otherwise, it would simply close the msgbox and do nothing else.

Here are the possible button arguments

Code:

---

Constant                Value        Description
vbOKOnly                0        Display OK button only.
vbOKCancel                1        Display OK and Cancel buttons.
vbAbortRetryIgnore        2        Display Abort, Retry, and Ignore buttons.
vbYesNoCancel                3        Display Yes, No, and Cancel buttons.
vbYesNo                        4        Display Yes and No buttons.
vbRetryCancel                5        Display Retry and Cancel buttons.
vbCritical                16        Display Critical Message icon.
vbQuestion                32        Display Warning Query icon.
vbExclamation                48        Display Warning Message icon.
vbInformation                64        Display Information Message icon.
vbDefaultButton1        0        First button is default.
vbDefaultButton2        256        Second button is default.
vbDefaultButton3        512        Third button is default.
vbDefaultButton4        768        Fourth button is default.
vbApplicationModal        0        Application modal; the user must respond to the message box before continuing work in the current application.
vbSystemModal                4096        System modal; all applications are suspended until the user responds to the message box.
vbMsgBoxHelpButton        16384        Adds Help button to the message box
VbMsgBoxSetForeground        65536        Specifies the message box window as the foreground window
vbMsgBoxRight                524288        Text is right aligned
vbMsgBoxRtlReading        1048576        Specifies text should appear as right-to-left reading on Hebrew and Arabic systems

---

And the return values

Code:

---

Constant        Value        Description
vbOK                1        OK
vbCancel        2        Cancel
vbAbort                3        Abort
vbRetry                4        Retry
vbIgnore        5        Ignore
vbYes                6        Yes
vbNo                7        No

---

@ Scriptor: hadn't i already said that in post #2?

I do in this way this, maybe a bit more need write, but i have larger possibilities – I think so.

VB Code:

If Your_variable= 1 Then
  Other_variable = MsgBox( _
        Prompt:=" Are you sure you want to change settings during calculation? _
        Title:=" Unexpected change of settings!!", _
        Buttons:=vbYesNo + vbQuestion)
          If Other_variable = vbYes Then
             Call cmdWrite_Click
             OptLook.Value = True
          Else
             Exit Sub
          End If
End If

I use these constants here: If constant = 6 is for vbYes and if constant = 7 is for vbNo
I assign variable constans and in this way I can realize close MsgBoxes without realization any operation

I think that it about this walked

VB Code:

Dim Msg$
 
  Msg = MsgBox("What ever you want the messege box to say", vbYesNo, "Title")
 
  Select Case Msg
    Case vbYes
        'code here
    Case vbNo
        'code here
 
   End Select

Quote:

---

Originally Posted by bushmobile

@ Scriptor: hadn't i already said that in post #2?

---

Yeah, I know, sorry bout that, only noticed it after I posted mine, still, I explained what happens in the code, didn't I?

try this.

VB Code:

Dim Result As VbMsgBoxResult
 
    Result = MsgBox("Are you sure you want to exit?", vbYesNo)
    
    If (Result = vbYes) Then
        Unload Me
    Else
        Exit Sub
    End If

this question was answered a fortnight ago in posts #2, #8, #11, #12 - think he's got his answer ;)

dim m as variable
m=msgbox("do you want to continue?"),vbquestion+vbyesno,"continue")
if m=vbyes then
the thing you want to do
end if
if m=vbno then

end if