Annuler le unload

Signaler
Messages postés
8
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
24 janvier 2003
-
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007
-
bonjour,
j'ai un pb que je n'arrive pas à résoudre...
j'ai créé un petit éditeur de texte, et quand l'utilisateur clique sur le X, un message demande s'il veut enregistrer, ignorer ou annuler...
quand il clique sur annuler, on doit annuler la fermeture du programme...
comment faire ?

merci infiniment pour vos réponses :big)

3 réponses

Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003

Si tu es dans l'événement Form Unload c'est déja trop tard.
Essaies de voir si tu peux intercepter le clic avant d'entrer dans le unload.
0
Messages postés
8
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
24 janvier 2003

héhé... oui mais est ce que l'on peut intercepter le click quand le visitieur clique sur le X ou ouvre le menu systeme en sélectionnant fermer ?
0
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

Et non, c'est pas trop tard !!

Faut juste que tu mette : "Cancel = True" dans form unload

soit :

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Et meme encore mieux, le code que tu cherchait :

rep% = MsgBox("Voulez-vous sauvegarder votre document, avant de quitter ?", vbQuestion + vbYesNoCancel)

' Si il répond oui
If rep% = vbYes Then
CommonDialog1.Filter = "HTML Files (*.html)|*.html|HTM Files (*.htm)|*.htm)"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text
Close #1
End If
End
End If

' Si il répond no
If rep% = vbNo Then
End
End If

' Si il répond autre que oui ou non
Cancel = True
Exit Sub
0