Discussion :

[Attila54]

Bonsoir,

J'ai une appli pour laquelle j'aimerais que mon bouton quitter soit suivi par l'apparition d'une msgbox disant "quitter vraiment ?" avec 2 bouttons: quitter et Annuler.
Pour quitter ==> End
Si on annule la textbox se ferme et le prog revient ou il etait.

Mon prob : impossible d'avoir les 2 boutons "Quitter" et "Annuler" sur ma textbox.

Que dois je faire ?

[DarkVader]

F1 + queryunload

[Attila54]

désolé pour la question mais j'ai pas msdn ou je bosse, pas plus que l'internet. Je poste d'une autre station

[rv26t]

Bonjour

...
Mon prob : impossible d'avoir les 2 boutons "Quitter" et "Annuler" sur ma textbox.
...

Pour la liste de boutons il faut

vbOKCancel

A+, Hervé

[real_achilles]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Unload(Cancel As Integer)
 
If MsgBox("Voulez vous vraiment quitter", vbInformation + vbYesNo, "info") = vbYes Then
End
Else
Cancel = True
End If
 
End Sub

[DarkVader]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Form_Unload(Cancel As Integer).../...

A mon avis, QueryUnload est péréférable car il permet de récupérer UnloadMode et donc de gérer en conséquence.

Valeurs de UnloadMode
vbFormControlMenu 0 L'utilisateur a choisi dans le menu Système de la feuille la commande Fermeture.
vbFormCode 1 L'instruction Unload est invoquée à partir du code.
vbAppWindows 2 La session Microsoft Windows en cours prend fin.
vbAppTaskManager 3 Le Gestionnaire de tâches de Microsoft Windows ferme l'application.
vbFormMDIForm 4 Une feuille MDI fille se ferme en raison de la fermeture de la feuille MDI.
vbFormOwner 5 Une feuille se ferme en raison de la fermeture de son propriétaire.

[Attila54]

bonsoir,

j'ai testé les deux soluces qui visiblement fonctionnent parfaitement.
Merci a tous pour vos conseils et pour l'aide