Fermer une application avec un MsgBox [Résolu]

Messages postés
24
Date d'inscription
dimanche 19 novembre 2000
Dernière intervention
12 juillet 2005
- 27 juin 2005 à 01:06 - Dernière réponse :
Messages postés
6
Date d'inscription
vendredi 11 novembre 2005
Dernière intervention
13 novembre 2005
- 13 nov. 2005 à 12:57
Bonjour a tous. Voila, j aimerais que quand je ferme mon application en appuyant sur la croix, il y est un msgbox qui me demande si je suis sur de quitter, et dans le cas ou je clique sur Cancel je puisse revenir sur mon application. J ai déjà fait mon code mais quand je clique sur cancel ca me ferme mon application.Comment dois je faire ???

Private Sub Form_Unload(Cancel As Integer)
dim question

question=MsgBox("Etes vous sure de vouloir quitter? Il vous reste des questions!", vbOKCancel, "ATTENTION!!")

if question=vbcancel then
form_load
else
end
end if
end sub
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Dernière intervention
31 mars 2015
- 27 juin 2005 à 01:35
3
Merci
en principe on le met dans le QueryUnload ce qui permet de savoir si
c'est l'utilisateur qui a cliqué sur la croix ou si c'est le programme
qui s'est déchargé.







Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim question

If UnloadMode = 0 Then

question = MsgBox("Etes vous
sure de vouloir quitter? Il vous reste des questions!", vbOKCancel,
"ATTENTION!!")

If question = vbCancel Then

Cancel = True

End If

End If

End Sub


Daniel

Merci Gobillot 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Messages postés
5
Date d'inscription
lundi 27 juin 2005
Dernière intervention
24 août 2006
- 27 juin 2005 à 01:28
0
Merci
J'ai dans mon programme une demande de confirmation pour le quitter et dans mon if en gros j'ai ça

If boxquitter = vbYes Then
End
Else

End If

En gros j'ai rien mis comme code pour le "non" et le programme ne se quitte pas
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 27 juin 2005 à 09:20
0
Merci
J'ajouterais que pour annuler le déchargment, comme l'a fait Daniel, il suffit de mettre Cancel à True
et non pas de rappeler Form_Load.

l'idée de tester le UnloadMode = vbFormControlMenu est à conserver... mais prudence tout de même.
si tu as un bouton "Quitter" dans ton application (donc un Unload Me) la MsgBox ne s'affichera pas....
a toi de voir (au pire, tu peux également tester la constante VbFormCode)

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
24
Date d'inscription
dimanche 19 novembre 2000
Dernière intervention
12 juillet 2005
- 27 juin 2005 à 19:18
0
Merci
merci a tous pour vos reponses. ca ma beaucoup aide.
Messages postés
6
Date d'inscription
vendredi 11 novembre 2005
Dernière intervention
13 novembre 2005
- 13 nov. 2005 à 12:57
0
Merci
bonjour j'ai crée une appli qui a un prob ! :
une boite de dialogue demandant le nom de l'utilisateur s'ouvre , s'il répond , il passe à la suite des evenements , s'il répond rien ... un message apparait " vous n'avez rien inscrit " et j'aimerai bien que l'appli se ferme ! alors qu'elle passe quand meme à la suite des évenements ! ce que j'ai créé donne a peu prés sa :

tohtoh = "veuillez indiquez votre prenom"
style = prenom
title = how
choix = InputBox (tohtoh, style, title)If choix "" or choix "prenom" then
msgbox"vide"
boxquitter
else
tohtoh= ucase(choix)

boxquitter ===> je ne sais pas si c'est vraiment la bonne condition ! car un message d'erreur apparvient !
merci d'avance à celui qui me répond

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.