Programming Forums > Application Development > Visual Basic

mgoku21 · Nov 29th, 2004, 10:12 PM

I got a problem. Im confused on how to manipulate a MessageBox using an IF statment. I need it to close the program when I hit Cancel button and to run a SaveDialogBox when I hit OK. Just cant figure it out. Thanks.

nerdfiles · Nov 29th, 2004, 11:50 PM

Here is the code I have now:

(Toggle Plain Text)

Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
    Dim datBalance As StreamWriter
    Dim dgrResult As DialogResult

    MessageBox.Show("Do you wish to save?", "Save?", _
      MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)

    dlgSave.InitialDirectory = Application.StartupPath
    dgrResult = dlgSave.ShowDialog()
    If dgrResult = DialogResult.OK Then
      datBalance = New StreamWriter(dlgSave.FileName)
      datBalance.WriteLine(FormatCurrency(mdecBalance, , , TriState.False))
      datBalance.Close()
    Else
      Me.Close()
    End If

    Me.Close()
  End Sub

Ooble · Nov 30th, 2004, 12:44 PM

I suggest using YesNoCancel, where Yes saves and exits, No just exits, and Cancel stops the app from exiting.

Now, I'm not 100% sure in VB .NET, but in VB6, you need to get the return value from the message box and test it for vbYes, vbNo or vbCancel:

(Toggle Plain Text)

Dim retVal as Integer

retVal = MessageBox.Show("Do you wish to save?", "Save?", _
     MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation)
If retVal = vbYes Then
   DoSaveStuff()
   Me.Close()
ElseIf retVal = vbNo Then
   Me.Close()
EndIf

That should do it.

nerdfiles · Nov 30th, 2004, 6:08 PM

Quote:

Originally posted by Ooble@Nov 30 2004, 06:44 PM
I suggest using YesNoCancel, where Yes saves and exits, No just exits, and Cancel stops the app from exiting.

Now, I'm not 100% sure in VB .NET, but in VB6, you need to get the return value from the message box and test it for vbYes, vbNo or vbCancel:

(Toggle Plain Text)

Dim retVal as Integer retVal = MessageBox.Show("Do you wish to save?", "Save?", _ * * * * MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) If retVal = vbYes Then * * DoSaveStuff() * * Me.Close() ElseIf retVal = vbNo Then * * Me.Close() EndIf

Dim retVal as Integer retVal = MessageBox.Show("Do you wish to save?", "Save?", _ * * * * MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) If retVal = vbYes Then * * DoSaveStuff() * * Me.Close() ElseIf retVal = vbNo Then * * Me.Close() EndIf

That should do it.

And it did it, thanks a bunch.

I wasn't aware of the whole retVal concept.

Now I am. O_O

Ooble · Dec 1st, 2004, 11:40 AM

Glad I could help. And unlike most of my code, I think that's bug-free as well.

Pino · Dec 7th, 2004, 5:21 AM

Quote:

Originally posted by nerdfiles+Dec 1 2004, 12:08 AM--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE (nerdfiles @ Dec 1 2004, 12:08 AM)</td></tr><tr><td id='QUOTE'> <!--QuoteBegin-Ooble@Nov 30 2004, 06:44 PM
I suggest using YesNoCancel, where Yes saves and exits, No just exits, and Cancel stops the app from exiting.

Now, I'm not 100% sure in VB .NET, but in VB6, you need to get the return value from the message box and test it for vbYes, vbNo or vbCancel:

(Toggle Plain Text)

Dim retVal as Integer retVal = MessageBox.Show("Do you wish to save?", "Save?", _ * * * * MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) If retVal = vbYes Then * * DoSaveStuff() * * Me.Close() ElseIf retVal = vbNo Then * * Me.Close() EndIf

Dim retVal as Integer retVal = MessageBox.Show("Do you wish to save?", "Save?", _ * * * * MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) If retVal = vbYes Then * * DoSaveStuff() * * Me.Close() ElseIf retVal = vbNo Then * * Me.Close() EndIf

That should do it.

And it did it, thanks a bunch.

I wasn't aware of the whole retVal concept.

Now I am. O_O [/b][/quote]
You could just do it

(Toggle Plain Text)

If MsgBox("Question", vbOKCancel, "Title") = vbOK Then
'etc etc

Ooble · Dec 8th, 2004, 12:44 PM

But then you can't use Yes, No and Cancel...

Rory · Jan 11th, 2005, 7:15 PM

What about:

(Toggle Plain Text)

Select Case MsgBox("Do you want to lay off all your employees, Bill?", vbExclamation + vbYesNoCancel, "Microsoft Corporation")
Case VbYes
Call FireEveryone
Case VbNo
Call PayEveryoneABonus
Case VbCancel
Call FallAsleep
End Select

Ooble · Jan 12th, 2005, 9:46 AM

Stop dragging up old posts already.

Nov 29th, 2004, 11:50 PM	#2
nerdfiles Newbie Join Date: Nov 2004 Posts: 5 Rep Power: 0	Here is the code I have now: (Toggle Plain Text) Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click Dim datBalance As StreamWriter Dim dgrResult As DialogResult MessageBox.Show("Do you wish to save?", "Save?", _ MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation) dlgSave.InitialDirectory = Application.StartupPath dgrResult = dlgSave.ShowDialog() If dgrResult = DialogResult.OK Then datBalance = New StreamWriter(dlgSave.FileName) datBalance.WriteLine(FormatCurrency(mdecBalance, , , TriState.False)) datBalance.Close() Else Me.Close() End If Me.Close() End Sub Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click Dim datBalance As StreamWriter Dim dgrResult As DialogResult MessageBox.Show("Do you wish to save?", "Save?", _ MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation) dlgSave.InitialDirectory = Application.StartupPath dgrResult = dlgSave.ShowDialog() If dgrResult = DialogResult.OK Then datBalance = New StreamWriter(dlgSave.FileName) datBalance.WriteLine(FormatCurrency(mdecBalance, , , TriState.False)) datBalance.Close() Else Me.Close() End If Me.Close() End Sub

Nov 30th, 2004, 12:44 PM	#3
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	I suggest using YesNoCancel, where Yes saves and exits, No just exits, and Cancel stops the app from exiting. Now, I'm not 100% sure in VB .NET, but in VB6, you need to get the return value from the message box and test it for vbYes, vbNo or vbCancel: (Toggle Plain Text) Dim retVal as Integer retVal = MessageBox.Show("Do you wish to save?", "Save?", _ MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) If retVal = vbYes Then DoSaveStuff() Me.Close() ElseIf retVal = vbNo Then Me.Close() EndIf Dim retVal as Integer retVal = MessageBox.Show("Do you wish to save?", "Save?", _ MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) If retVal = vbYes Then DoSaveStuff() Me.Close() ElseIf retVal = vbNo Then Me.Close() EndIf That should do it. __________________ Me :: You :: Them

Dec 1st, 2004, 11:40 AM	#5
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Glad I could help. And unlike most of my code, I think that's bug-free as well. __________________ Me :: You :: Them

Dec 8th, 2004, 12:44 PM	#7
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	But then you can't use Yes, No and Cancel... __________________ Me :: You :: Them

Jan 11th, 2005, 7:15 PM	#8
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	Message Box What about: (Toggle Plain Text) Select Case MsgBox("Do you want to lay off all your employees, Bill?", vbExclamation + vbYesNoCancel, "Microsoft Corporation") Case VbYes Call FireEveryone Case VbNo Call PayEveryoneABonus Case VbCancel Call FallAsleep End Select Select Case MsgBox("Do you want to lay off all your employees, Bill?", vbExclamation + vbYesNoCancel, "Microsoft Corporation") Case VbYes Call FireEveryone Case VbNo Call PayEveryoneABonus Case VbCancel Call FallAsleep End Select

Nov 29th, 2004, 10:12 PM	#1
mgoku21 Newbie Join Date: Nov 2004 Posts: 12 Rep Power: 0	I got a problem. Im confused on how to manipulate a MessageBox using an IF statment. I need it to close the program when I hit Cancel button and to run a SaveDialogBox when I hit OK. Just cant figure it out. Thanks.

Jan 12th, 2005, 9:46 AM	#9
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Stop dragging up old posts already. __________________ Me :: You :: Them

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Programming Forums > Application Development > Visual Basic

Message Box