Message de confirmation à la fermeture d'un FormRésolu

Question

Bonjour tous le monde
j'ai un petit problème lors de la fermetur d'un Form, je veux avoir un msgbox (VBOkCancel) qui me demande la confirmation de la fermetur, le problem c'est quand je clique sur cancel, je veux que l'application ne se ferme pas , mais ma memoire m'as trahie, j'arrive pas à le faire

ci dessou le programme que j'ai fais, je ne sais pas quoi mettre  là où il y a XXXXXXXXX ,   

Private Sub Form_Unload(Cancel As Integer)
Dim a As Integer
a = MsgBox("Vouvlez vous vraiment fermer l'application", vbOKCancel, "Attention!!!!!")
If a = vbOK Then
Unload Me
Else
XXXXXXXXX
End If
End Sub

Merci d'avance

drikce06 · Accepted Answer

Non pardon Cancel = 1 devrait empecher la fermeture

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Salut Else Exit sub non?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

le cancre · Answer

Private Sub Form_Unload(Cancel As Integer)
Dim a As Integer
a = MsgBox("Vouvlez vous vraiment fermer l'application", vbOKCancel, "Attention!!!!!")
If a = vbOK Then
Unload Me
Else
Cancel = 1
End If
End Sub

le cancre · Answer

désolé j'ai pas vu ta réponse Drikce

hsiko309 · Answer

Meeeerci bien, ça marche bien votre solution ,  je n'oublierais jamais votre aide quand je serais un grand developeur :)

cs_MPi · Answer

Et tu peux utiliser Form_QueryUnload(...)

MPi

Message de confirmation à la fermeture d'un Form

6 réponses

Votre réponse

Discussions similaires