Jumping to another routine

[John E. Crouse]

When I exit my app a confirmation message box pops up. If the user chooses
"No", what is the code I need to jump to another sub routine (So the save
file message box pops up). I already have all of the message box routine.

Thank you,
John

[Herfried K. Wagner [MVP]]

* "John E. Crouse" <jo*********@comcast.net> scripsit:

When I exit my app a confirmation message box pops up. If the user chooses
"No", what is the code I need to jump to another sub routine (So the save
file message box pops up). I already have all of the message box routine.

The name of the save routine?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Lars Netzel]

in addition , you might want to type "Exit Sub" after calling the Other sub.

/Lars Netzel

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> skrev i meddelandet
news:2i************@uni-berlin.de...

* "John E. Crouse" <jo*********@comcast.net> scripsit:

When I exit my app a confirmation message box pops up. If the user chooses "No", what is the code I need to jump to another sub routine (So the save file message box pops up). I already have all of the message box

routine.
The name of the save routine?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Herfried K. Wagner [MVP]]

* "Lars Netzel" <[stop_spam]@host.topdomain> scripsit:

in addition , you might want to type "Exit Sub" after calling the Other sub.

Or 'Exit Function', if it's a function. Or 'Return' :-).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[John E. Crouse]

Here is the place I am leaving:

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Closed

Dim response As MsgBoxResult

response = MsgBox("Do you want quit without saving?",
MsgBoxStyle.YesNo, "CPviewer")

If response = MsgBoxResult.Yes Then

Application.Exit()

Else

'mnuSaveLayout_Click()

End If

End Sub
And here is where I want to go:

Private Sub mnuSaveLayout_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuSaveLayout.Click

SaveFileDialog1.Filter = "XML Document|*.xml"

SaveFileDialog1.Title = "Save a Layout File"

SaveFileDialog1.ShowDialog()

If SaveFileDialog1.FileName <> "" Then

Dim ds As New DataSet("CPViewer")

Dim dt1 As New DataTable("P1JoyUp")

End Sub
Thanks,
John

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:2i************@uni-berlin.de...

* "John E. Crouse" <jo*********@comcast.net> scripsit:

When I exit my app a confirmation message box pops up. If the user chooses "No", what is the code I need to jump to another sub routine (So the save file message box pops up). I already have all of the message box

routine.
The name of the save routine?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Armin Zingler]

"John E. Crouse" <jo*********@comcast.net> schrieb

Here is the place I am leaving:

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Closed
It's common usage to put the code in the Closing event and offer "yes, no,
cancel" to the user. If cancel is pressed, set e.cancel = true.
Dim response As MsgBoxResult

response = MsgBox("Do you want quit without saving?",
MsgBoxStyle.YesNo, "CPviewer")

If response = MsgBoxResult.Yes Then

Application.Exit()

Why call application.exit? It's not necessary. Only if you do not have one
specific startup form, call application.exitthread.

Else
Save
End If

End Sub
And here is where I want to go:

Private Sub mnuSaveLayout_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles mnuSaveLayout.Click
Save
End Sub

private sub Save
SaveFileDialog1.Filter = "XML Document|*.xml"

SaveFileDialog1.Title = "Save a Layout File"

SaveFileDialog1.ShowDialog()

If SaveFileDialog1.FileName <> "" Then

Dim ds As New DataSet("CPViewer")

Dim dt1 As New DataTable("P1JoyUp")
end sub
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html