Evenement associé à la case de fermeture windows d'un formulaire
4 réponses
jerome
Bonjour,
Je n'arrive pas à trouver l'événement associé à la case de fermeture windows
dans un formulaire (sans la supprimer)
Si l'utilisateur ferme le formulaire par la case de fermeture, message etc
etc
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Sub Form_Unload(Cancel As Integer) ' si non = cancel = -1 End Sub
-- Merci beaucoup, au revoir et à bientôt :o) ------ Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "jerome" a écrit dans le message de news: | Bonjour, | | Je n'arrive pas à trouver l'événement associé à la case de fermeture windows | dans un formulaire (sans la supprimer) | Si l'utilisateur ferme le formulaire par la case de fermeture, message etc | etc | | Merci | |
Sub Form_Unload(Cancel As Integer)
' si non = cancel = -1
End Sub
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"jerome" <jerome@hh.fr> a écrit dans le message de
news: eUyoKzQMIHA.3852@TK2MSFTNGP06.phx.gbl...
| Bonjour,
|
| Je n'arrive pas à trouver l'événement associé à
la case de fermeture windows
| dans un formulaire (sans la supprimer)
| Si l'utilisateur ferme le formulaire par la case
de fermeture, message etc
| etc
|
| Merci
|
|
Sub Form_Unload(Cancel As Integer) ' si non = cancel = -1 End Sub
-- Merci beaucoup, au revoir et à bientôt :o) ------ Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "jerome" a écrit dans le message de news: | Bonjour, | | Je n'arrive pas à trouver l'événement associé à la case de fermeture windows | dans un formulaire (sans la supprimer) | Si l'utilisateur ferme le formulaire par la case de fermeture, message etc | etc | | Merci | |
Jo
bonsoir, pour empêcher de fermer un formulaire avec le bouton système, on peut écrire le code suivant dans la procédure Form_QueryUnload si l'on clique sur le bouton système, UnloadMode est égal à zéro
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then Cancel = True End If End Sub
"jerome" a écrit dans le message de groupe de discussion :
Bonjour,
Je n'arrive pas à trouver l'événement associé à la case de fermeture windows dans un formulaire (sans la supprimer) Si l'utilisateur ferme le formulaire par la case de fermeture, message etc etc
Merci
bonsoir,
pour empêcher de fermer un formulaire avec le bouton système, on peut écrire
le code suivant dans la procédure Form_QueryUnload
si l'on clique sur le bouton système, UnloadMode est égal à zéro
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Cancel = True
End If
End Sub
"jerome" <jerome@hh.fr> a écrit dans le message de groupe de discussion :
eUyoKzQMIHA.3852@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je n'arrive pas à trouver l'événement associé à la case de fermeture
windows
dans un formulaire (sans la supprimer)
Si l'utilisateur ferme le formulaire par la case de fermeture, message etc
etc
bonsoir, pour empêcher de fermer un formulaire avec le bouton système, on peut écrire le code suivant dans la procédure Form_QueryUnload si l'on clique sur le bouton système, UnloadMode est égal à zéro
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then Cancel = True End If End Sub
"jerome" a écrit dans le message de groupe de discussion :
Bonjour,
Je n'arrive pas à trouver l'événement associé à la case de fermeture windows dans un formulaire (sans la supprimer) Si l'utilisateur ferme le formulaire par la case de fermeture, message etc etc
Merci
Jacques93
Bonjour jerome, jerome a écrit :
Bonjour,
Je n'arrive pas à trouver l'événement associé à la case de fermeture windows dans un formulaire (sans la supprimer) Si l'utilisateur ferme le formulaire par la case de fermeture, message etc etc
Pour compléter les réponses du Troll et de Jo, la valeur UnloadMode de l'événement Query_Unload permet de connaître l'origine de la demande de fermeture de la fenêtre, et d'agir en conséquence (par exemple fermer le programme proprement si la cause est la fermeture de session (vbAppWindows), ou le gestionnaire de tâche (vbAppTaskManager) :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbFormControlMenu ' The user chose the Close command from the Control menu on the form. Cancel = x Case vbFormCode ' The Unload statement is invoked from code. Cancel = x Case vbAppWindows ' The current Microsoft Windows operating environment session is ending. Cancel = x Case vbAppTaskManager ' The Microsoft Windows Task Manager is closing the application. Cancel = x Case vbFormMDIForm ' An MDI child form is closing because the MDI form is closing. Cancel = x Case vbFormOwner ' A form is closing because its owner is closing. Cancel = x End Select End Sub
Si x = 0 => on continue la fermeture Si x <> 0 => on interromp la fermeture
-- Cordialement,
Jacques.
Bonjour jerome,
jerome a écrit :
Bonjour,
Je n'arrive pas à trouver l'événement associé à la case de fermeture windows
dans un formulaire (sans la supprimer)
Si l'utilisateur ferme le formulaire par la case de fermeture, message etc
etc
Pour compléter les réponses du Troll et de Jo, la valeur UnloadMode de
l'événement Query_Unload permet de connaître l'origine de la demande de
fermeture de la fenêtre, et d'agir en conséquence (par exemple fermer le
programme proprement si la cause est la fermeture de session
(vbAppWindows), ou le gestionnaire de tâche (vbAppTaskManager) :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu ' The user chose the Close command from the
Control menu on the form.
Cancel = x
Case vbFormCode ' The Unload statement is invoked from code.
Cancel = x
Case vbAppWindows ' The current Microsoft Windows operating
environment session is ending.
Cancel = x
Case vbAppTaskManager ' The Microsoft Windows Task Manager is
closing the application.
Cancel = x
Case vbFormMDIForm ' An MDI child form is closing because the
MDI form is closing.
Cancel = x
Case vbFormOwner ' A form is closing because its owner is
closing.
Cancel = x
End Select
End Sub
Si x = 0 => on continue la fermeture
Si x <> 0 => on interromp la fermeture
Je n'arrive pas à trouver l'événement associé à la case de fermeture windows dans un formulaire (sans la supprimer) Si l'utilisateur ferme le formulaire par la case de fermeture, message etc etc
Pour compléter les réponses du Troll et de Jo, la valeur UnloadMode de l'événement Query_Unload permet de connaître l'origine de la demande de fermeture de la fenêtre, et d'agir en conséquence (par exemple fermer le programme proprement si la cause est la fermeture de session (vbAppWindows), ou le gestionnaire de tâche (vbAppTaskManager) :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbFormControlMenu ' The user chose the Close command from the Control menu on the form. Cancel = x Case vbFormCode ' The Unload statement is invoked from code. Cancel = x Case vbAppWindows ' The current Microsoft Windows operating environment session is ending. Cancel = x Case vbAppTaskManager ' The Microsoft Windows Task Manager is closing the application. Cancel = x Case vbFormMDIForm ' An MDI child form is closing because the MDI form is closing. Cancel = x Case vbFormOwner ' A form is closing because its owner is closing. Cancel = x End Select End Sub
Si x = 0 => on continue la fermeture Si x <> 0 => on interromp la fermeture
-- Cordialement,
Jacques.
jerome
Merci à tous
"Jacques93" wrote in message news:
Bonjour jerome, jerome a écrit : > Bonjour, > > Je n'arrive pas à trouver l'événement associé à la case de fermeture
windows
> dans un formulaire (sans la supprimer) > Si l'utilisateur ferme le formulaire par la case de fermeture, message
etc
> etc >
Pour compléter les réponses du Troll et de Jo, la valeur UnloadMode de l'événement Query_Unload permet de connaître l'origine de la demande de fermeture de la fenêtre, et d'agir en conséquence (par exemple fermer le programme proprement si la cause est la fermeture de session (vbAppWindows), ou le gestionnaire de tâche (vbAppTaskManager) :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbFormControlMenu ' The user chose the Close command from the Control menu on the form. Cancel = x Case vbFormCode ' The Unload statement is invoked from code. Cancel = x Case vbAppWindows ' The current Microsoft Windows operating environment session is ending. Cancel = x Case vbAppTaskManager ' The Microsoft Windows Task Manager is closing the application. Cancel = x Case vbFormMDIForm ' An MDI child form is closing because the MDI form is closing. Cancel = x Case vbFormOwner ' A form is closing because its owner is closing. Cancel = x End Select End Sub
Si x = 0 => on continue la fermeture Si x <> 0 => on interromp la fermeture
-- Cordialement,
Jacques.
Merci à tous
"Jacques93" <jacques@Nospam> wrote in message
news:eSvsO9RMIHA.5172@TK2MSFTNGP06.phx.gbl...
Bonjour jerome,
jerome a écrit :
> Bonjour,
>
> Je n'arrive pas à trouver l'événement associé à la case de fermeture
windows
> dans un formulaire (sans la supprimer)
> Si l'utilisateur ferme le formulaire par la case de fermeture, message
etc
> etc
>
Pour compléter les réponses du Troll et de Jo, la valeur UnloadMode de
l'événement Query_Unload permet de connaître l'origine de la demande de
fermeture de la fenêtre, et d'agir en conséquence (par exemple fermer le
programme proprement si la cause est la fermeture de session
(vbAppWindows), ou le gestionnaire de tâche (vbAppTaskManager) :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu ' The user chose the Close command from the
Control menu on the form.
Cancel = x
Case vbFormCode ' The Unload statement is invoked from code.
Cancel = x
Case vbAppWindows ' The current Microsoft Windows operating
environment session is ending.
Cancel = x
Case vbAppTaskManager ' The Microsoft Windows Task Manager is
closing the application.
Cancel = x
Case vbFormMDIForm ' An MDI child form is closing because the
MDI form is closing.
Cancel = x
Case vbFormOwner ' A form is closing because its owner is
closing.
Cancel = x
End Select
End Sub
Si x = 0 => on continue la fermeture
Si x <> 0 => on interromp la fermeture
Bonjour jerome, jerome a écrit : > Bonjour, > > Je n'arrive pas à trouver l'événement associé à la case de fermeture
windows
> dans un formulaire (sans la supprimer) > Si l'utilisateur ferme le formulaire par la case de fermeture, message
etc
> etc >
Pour compléter les réponses du Troll et de Jo, la valeur UnloadMode de l'événement Query_Unload permet de connaître l'origine de la demande de fermeture de la fenêtre, et d'agir en conséquence (par exemple fermer le programme proprement si la cause est la fermeture de session (vbAppWindows), ou le gestionnaire de tâche (vbAppTaskManager) :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbFormControlMenu ' The user chose the Close command from the Control menu on the form. Cancel = x Case vbFormCode ' The Unload statement is invoked from code. Cancel = x Case vbAppWindows ' The current Microsoft Windows operating environment session is ending. Cancel = x Case vbAppTaskManager ' The Microsoft Windows Task Manager is closing the application. Cancel = x Case vbFormMDIForm ' An MDI child form is closing because the MDI form is closing. Cancel = x Case vbFormOwner ' A form is closing because its owner is closing. Cancel = x End Select End Sub
Si x = 0 => on continue la fermeture Si x <> 0 => on interromp la fermeture