February 13, 2007
ill save it here... hehe
Hello dear students,
For those of you who still have not figured out
how to prevent the unloading of forms (if the user clicked
on the X button or pressed ALT+F4), here's how. =)
how to prevent the unloading of forms (if the user clicked
on the X button or pressed ALT+F4), here's how. =)
VB6:
1. Use the QueryUnload( ) event procedure.
2. The first argument of QueryUnload, Cancel,
determines whether or not the form will be
unloaded or not. Assign False to Cancel variable
once the user has decided to Cancel the action.
1. Use the QueryUnload( ) event procedure.
2. The first argument of QueryUnload, Cancel,
determines whether or not the form will be
unloaded or not. Assign False to Cancel variable
once the user has decided to Cancel the action.
Example:
Private Sub Form_QueryUnload
Private Sub Form_QueryUnload
(Cancel As Integer, UnloadMode As Integer)
Dim nResult As Integer
Dim nResult As Integer
nResult = MsgBox("Are you sure you want to exit?", vbYesNo, "Title"
If (vbNo = nResult) Then
Cancel = True
End If
End Sub
Cancel = True
End If
End Sub
VB.NET:
1. Use the Closing() event procedure.
2. The second argument of Closing(), e,
can determine whether or not the form will be
unloaded or not. Assign False to Cancel member of e
once the user has decided to Cancel the action.
1. Use the Closing() event procedure.
2. The second argument of Closing(), e,
can determine whether or not the form will be
unloaded or not. Assign False to Cancel member of e
once the user has decided to Cancel the action.
Example:
Private Sub Form1_Closing
(
ByVal sender As Object,
ByVal e As System.ComponentMod el.CancelEventAr gs
) Handles MyBase.Closing
Private Sub Form1_Closing
(
ByVal sender As Object,
ByVal e As System.ComponentMod el.CancelEventAr gs
) Handles MyBase.Closing
Dim nResult As Integer
nResult = MsgBox("Are you sure you want to exit?", MsgBoxStyle. YesNo, "Title"
If (MsgBoxResult. No = nResult) Then
e.Cancel = True
End If
End Sub
e.Cancel = True
End If
End Sub
Just inform me if you have any additional questions
or clarifications.
or clarifications.
Good luck and God bless on your thesis endeavors! =)
Regards,
Ms. Cath
Ms. Cath
