Catching the _closing event on Windows Mobile 5.0

[Anthony P.]

Hello Everyone,

I am writing a Windows Mobile 5.0 application using VS 2..8 in VB.NET.
When someone clicks the "Exit" menu option, which generates a
button_click() event, I find it easy to display an "Are you sure?"
MessgeBox before the application closes. That way, if they
accidentally selected exit, they have a chance to back out. But I also
want to catch the _closing() event on the form in case the user clicks
the application close X on the top of the application. When I use the
following code, it doesn't do anything at all:

Private Sub MainForm_Closin g(ByVal sender As System.Object, ByVal e
As _
System.Componen tModel.CancelEv entArgs) Handles
MyBase.Closing

Dim rs As Integer

rs = MessageBox.Show ("Are you sure you want to exit?",
"Confirm Exit", MessageBoxButto ns.OKCancel,
MessageBoxIcon. Exclamation, MessageBoxDefau ltButton.Button 1)
If (rs = vbOK) Then
Application.Exi t()
Else
Return
End If
End Sub

Am I doing this wrong? How can I best deal with this event? Is it even
possible?

Thanks!
Anthony

[kimiraikkonen]

On Apr 22, 6:50 am, "Anthony P." <papill...@gmai l.comwrote:

Hello Everyone,

I am writing a Windows Mobile 5.0 application using VS 2..8 in VB.NET.
When someone clicks the "Exit" menu option, which generates a
button_click() event, I find it easy to display an "Are you sure?"
MessgeBox before the application closes. That way, if they
accidentally selected exit, they have a chance to back out. But I also
want to catch the _closing() event on the form in case the user clicks
the application close X on the top of the application. When I use the
following code, it doesn't do anything at all:

Private Sub MainForm_Closin g(ByVal sender As System.Object, ByVal e
As _
System.Componen tModel.CancelEv entArgs) Handles
MyBase.Closing

Dim rs As Integer

rs = MessageBox.Show ("Are you sure you want to exit?",
"Confirm Exit", MessageBoxButto ns.OKCancel,
MessageBoxIcon. Exclamation, MessageBoxDefau ltButton.Button 1)
If (rs = vbOK) Then
Application.Exi t()
Else
Return
End If
End Sub

Am I doing this wrong? How can I best deal with this event? Is it even
possible?

Thanks!
Anthony

Hi Anthony,

I hope that works for you and fixes your problem:

Private Sub MainForm_Closin g(ByVal sender As System.Object, ByVal e As
System.Componen tModel.CancelEv entArgs) Handles MyBase.Closing

Dim rs As Integer

' Define MsgBox
rs = MessageBox.Show ("Are you sure you want to exit?", "Confirm Exit",
MessageBoxButto ns.OKCancel, MessageBoxIcon. Exclamation,
MessageBoxDefau ltButton.Button 1)

' Exit if OK is clicked
If rs = vbOK Then
Application.Exi t()

' Else stay awake
Else
e.Cancel = True

End If

End Sub
Hope this helps,

Onur Güzel

[Anthony P.]

Thank you Onur!
I'm not sure if it worked for me or not because I'm not at my dev
machine but I can already see some changes I need to make. Thanks for
your input!

Anthony

[kimiraikkonen]

On Apr 23, 12:28*am, "Anthony P." <papill...@gmai l.comwrote:

Thank you Onur!
I'm not sure if it worked for me or not because I'm not at my dev
machine but I can already see some changes I need to make. Thanks for
your input!

Anthony

Anthony, i tested it on my machine and worked, i hope the same effect
for you :-)

Let us know,

Regards,

Onur Güzel