Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 12 déc. 2005 à 01:00
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode _
As Integer)
Select Case UnloadMode
Case vbFormControlMenu
MsgBox Caption & ": Close command from Control " & _
"menu or X button."
Case vbFormCode
MsgBox Caption & ": Unload statement from code."
Case vbAppWindows
MsgBox Caption & ": Windows session ending."
Case vbAppTaskManager
MsgBox Caption & ": Task Manager close."
Case vbFormMDIForm
MsgBox Caption & ": MDI parent is closing."
Case vbFormOwner
MsgBox Caption & ": Owner is closing."
End Select
End Sub