Fermer une boite de dialogRésolu

Question

Voila je cr&#233;er une boite de dialogue et j'aimerai bien ke lorsque l'on clique sur le bouton "cancel" &#231;a ferme la boite de dialogue sans fermer la fen&#234;tre toute enti&#232;re.
A++

mrdep1978 · Accepted Answer

Si j'ai bien compris, ta boite de dialogue est ouverte par un MsgBox.

Dans ce cas, tu dois avoir &#224; peu pr&#232;s &#231;a sur le click de ton bouton Quitter:

Private Sub cmdQuitter_Click()
dim li_Reponse as integer
li_Reponse = Msgbox ("Voulez-vous quitter l'application ?", vbYesNo + vbQuestion)
if li_Reponse = vbYes Then
   unload me
endif
End Sub

Si tu veux &#233;galement g&#233;rer la fermeture par le clic sur la croix en haut &#224; droite de la feuille, tu aurais plut&#244;t

Private Sub cmdQuitter_Click()
'Appelle la fermeture de la fen&#234;tre
   Unload Me
End Sub

Private Sub Form_Unload(Cancel as Integer)
'Fermeture de la fen&#234;tre
dim li_Reponse as integer
li_Reponse = Msgbox ("Voulez-vous quitter l'application ?", vbYesNo + vbQuestion)
if li_Reponse <> vbYes Then
   'Si r&#233;ponse n'est pas "Oui", alors on annule la sortie de la fen&#234;tre
   Cancel = 1
End If
End Sub

mrdep1978 · Answer

Je ne comprends pas bien ta question
Quelle diff&#233;rence fais-tu entre une boite de dialogue et une fen&#234;tre ?

La Biode · Answer

Ben je vais te donner mon exemple je demande si l'utilisateur veut quitter l'application , il a le choix de clique sur quitter et &#231;a quitte l'application ou de cliquer sur annuler ou autre et ca ne quitte pas l'application mais ca quitte la boite de dialogue qui demande si l'utilisatteur veut bien quitter 
C'est plus clair?...

La Biode · Answer

ok merci bien &#231;a marche ;)

Fermer une boite de dialog

4 réponses

Discussions similaires