Catching the _closing event on Windows Mobile 5.0

  • Thread starter Thread starter Anthony P.
  • Start date Start date
A

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_Closing(ByVal sender As System.Object, ByVal e
As _
System.ComponentModel.CancelEventArgs) Handles
MyBase.Closing

Dim rs As Integer

rs = MessageBox.Show("Are you sure you want to exit?",
"Confirm Exit", MessageBoxButtons.OKCancel,
MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
If (rs = vbOK) Then
Application.Exit()
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
 
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_Closing(ByVal sender As System.Object, ByVal e
As _
System.ComponentModel.CancelEventArgs) Handles
MyBase.Closing

Dim rs As Integer

rs = MessageBox.Show("Are you sure you want to exit?",
"Confirm Exit", MessageBoxButtons.OKCancel,
MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
If (rs = vbOK) Then
Application.Exit()
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
Click to expand...

Hi Anthony,

I hope that works for you and fixes your problem:

Private Sub MainForm_Closing(ByVal sender As System.Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

Dim rs As Integer

' Define MsgBox
rs = MessageBox.Show("Are you sure you want to exit?", "Confirm Exit",
MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation,
MessageBoxDefaultButton.Button1)

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

' Else stay awake
Else
e.Cancel = True

End If

End Sub


Hope this helps,

Onur Güzel
 
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
 
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
Click to expand...

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

Let us know,

Regards,

Onur Güzel
 
Back
Top