TESTER VOS MESSAGE BOX

hoeppe Messages postés 56 Date d'inscription mardi 20 mai 2003 Statut Membre Dernière intervention 10 juin 2005 - 6 sept. 2003 à 03:57
VbKorn666 Messages postés 2 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 2 octobre 2003 - 2 oct. 2003 à 19:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8464-tester-vos-message-box

VbKorn666 Messages postés 2 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 2 octobre 2003
2 oct. 2003 à 19:14
Un peu simple ce code lol !
Mais bon je vois pas a quoi cela me servirait !!!
KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
6 sept. 2003 à 11:20
Le Unload tout court ça marche:

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Quitter ?", vbYesNo) = vbYes Then
End
Else
Cancel = 1
End If
End Sub

:D
hoeppe Messages postés 56 Date d'inscription mardi 20 mai 2003 Statut Membre Dernière intervention 10 juin 2005
6 sept. 2003 à 03:57
sans vouloir etre un c... de premiere, pour "Voulez-vous quitter le programme ?", le queryunload ca existe et il parait que ca marche.en tout cas, ton zip m'a diverti. d'ou une note superieure ou egal a la moyenne.
Rejoignez-nous