Cl@rk
Messages postés4Date d'inscriptionlundi 10 novembre 2003StatutMembreDernière intervention10 décembre 2003
-
10 nov. 2003 à 12:30
Cl@rk
Messages postés4Date d'inscriptionlundi 10 novembre 2003StatutMembreDernière intervention10 décembre 2003
-
10 nov. 2003 à 12:44
Bjr
Voilà, sur un petit projet avec juste un form avec dessus un bouton ok et un annuler, lors du clic sur le bouton annuler, je fais un input box pour demander la confirmation de fermeture du prog. Je voudrais faire la même chose sur le clic sur la croix mais ça se ferme qd même. Voilà mon code :
Code:
Private Sub Form_Terminate()
Dim Réponse As String
Réponse = MsgBox("Voulez-vous quitter l'application ""Adhésion""?", vbOKCancel, "Quitter")
If Réponse = vbCancel Then
Form_Load
Exit Sub
ElseIf Réponse = vbOK Then End
End If
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 10 nov. 2003 à 12:35
Ton code est presque bon....
l'Evenement Terminate surviens trop tard......
il faut s'interesser a la demande de dechargement de la Form :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Etes-vous sur de vouloir quitter ?", vbYesNo, "Confirmation de sortie") = vbNo Then
Cancel = 1
End If
End Sub
au passage, ta réponse, n'est pas un String !!!!!!!!
un msgBox renvoie un type VbMsgBoxResult