Annuler le unload
cs_xavier35
Messages postés
8
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
24 janvier 2003
-
30 août 2002 à 16:05
quiaimeflash Messages postés 270 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 11 juillet 2007 - 11 juil. 2004 à 23:25
quiaimeflash Messages postés 270 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 11 juillet 2007 - 11 juil. 2004 à 23:25
A voir également:
- Annuler le unload
- Bouton annuler - Forum Visual Basic
- Unload userform ✓ - Forum Visual Basic 6
- Unload me vba - Forum Visual Basic
- Unload me en .net - Forum VB.NET
- Bouton annuler html - Forum PHP
3 réponses
JeffLC
Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003
30 août 2002 à 16:52
30 août 2002 à 16:52
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.
Essaies de voir si tu peux intercepter le clic avant d'entrer dans le unload.
cs_xavier35
Messages postés
8
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
24 janvier 2003
30 août 2002 à 17:40
30 août 2002 à 17:40
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 ?
quiaimeflash
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007
11 juil. 2004 à 23:25
11 juil. 2004 à 23:25
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
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
