Cliquer sur la croix et il me demande dans une MsgBox oui ou non ?Résolu

Question

Bonjour,

Je suis débutant en Visual Basic et je me demandais comment était-il possible de faire afficher une MsgBox qui me demande si je suis sur ou non de quitter mon programme lorsque je clique sur la croix rouge de ma form ! Mon problème n'est pas d'ajouter ou de faire afficher la Msgbox mais bien de trouver le code pour lier la MsgBox à la croix.

Si qu'elqu'un pouvais m'aider, ça me serait d'une grande aide.

Merci énormément à tous

cs_franckydeluka · Accepted Answer

Salut , 

en VB6 tu as une méthode form_unload dans chaque feuille qui est atteinte lorsque tu fermes la feuille
dans cette methode tu peux annuler la sortie de la feuille
voilà ce que je te propose :

Private Sub Form_Unload(Cancel As Integer)
    Dim ret
    ret = MsgBox("voulez-vous réellement quitter le programme ?", vbYesNo, "Quitter le programme")
    If ret <> 6 Then Cancel = 1
End Sub




++ 

Deluka.

valtrase · Answer

Salut,
Utilise la méthode QueryUnload de ta form

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

Utilisateur anonyme · Answer

Salut
valtrase> ton code est en vb6 !



Private
 
Sub
 Form1_FormClosing(
ByVal
 sender 
As
 
Object
, 
ByVal 
e 
As 
System.Windows.Forms.FormClosingEventArgs) 
Handles 
Me
.FormClosing

  
If
 System.Windows.Forms.MessageBox.Show(
"Quitter ?"
, System.Windows.Forms.Application.ProductName, System.Windows.Forms.MessageBoxButtons.YesNo, System.Windows.Forms.MessageBoxIcon.Question) = System.Windows.Forms.DialogResult.No 
Then

    e.Cancel = 
True

  
End
 
If

End
 
Sub





Kenji

Merci de lire le règlement (vivement conseillé voir obligatoire).

/FONT>

chouchou270403 · Answer

Re bonjour,

Merci beaucouo pour votre aide, mais ça ne règle pas mon problème je ne sais pas pourquoi.

En ce qui concerne la méthode QueryUnload, je suis nul part. Pour la deuxième méthode (de Valtrase) j'ai essayé mais ça ne fonctionne pas. Oui mon code est en Vb6.

Si ça dis qnn je peux peut être envoyé mon code !

Merci beaucoup

mortalino · Answer

Salut,

Kenji : tu as dis "valtrase> ton code est en vb6 !"
C'est normal, la demande est en ... ben VB6
Thèmes / Visual Basic 6 / Divers / Débutants / Cliquer sur la croix et il me demande dans une MsgBox oui ou non ?
Donc, c'est bien l'evenement QueryUnload (ou QueryClose)

>chouchou270403

Trouve l'évènement QueryUnload (ou QueryClose) lié à ta form.
Regarde dans le moteur de recherche, tu trouveras certainement ton bonheur (mots clés : Fermer Form)

@++

  Mortalino  
Le Mystérieux Chevalier "Provençal, le Gaulois" 
N'oubliez pas de lire le règlement

Utilisateur anonyme · Answer

Hein ? C'est quoi ce truc ? J'avais pourtant vérifié et revérifier, c'était dans 'VB.net et VB 2005' !
La fatigue du soir sans doute (ou du matin plutot).
Désolé de cette réponse inutile qui n'a pas sa place ici.






Kenji

Merci de lire le 
règlement

 (vivement conseillé voir obligatoire).
/FONT>

PCPT · Answer

salut Private Sub Command1_Click() ' Dim iRet As Integer ' OU Dim iRet As VbMsgBoxResult iRet = MsgBox ("Voulez-vous quitter?", vbOKCancel, "Bye ??") If iRet = vbOK Then ' action pour quitter Debug.Print "OK" ElseIf iRet = vbCancel Then ' action pour annuler Debug.Print "CANCEL" End If End Sub Coloration syntaxique automatique [AFCK] vbOKCancel n'est pas forcément la meilleure constante... iRet = MsgBox("Voulez-vous quitter?", vbYesNo Or vbExclamation, "Bye ??") If iRet = vbYes Then ' action pour quitter Debug.Print "OUI" ElseIf iRet = vbNo Then ' action pour annuler Debug.Print "NON" End If Coloration syntaxique automatique [AFCK] ci-dessus, la croix (annuler) est grisée ++ PCPT [AFCK]

chouchou270403 · Answer

Merci à tous de votre aide, mais je pense qu'on ne se comprend pas sur ce que je veux faire....

Mais j'essaie quand même toutes vos astuces 

Lorsqu'une form est mise en BorderStyle : Fixed Single, le cadre de la fenêtre contient une petite croixen haut à droite. Et je voudrais que l'orsque l'utilisateur clique sur cette croix, une MsgBox apparaisse et demande s'il veut quitter oui ou non !

Je m'exprime surement mal alors désolé, car c'est mon premier message sur le forum...

Merci encore à tous et vive VB France

mortalino · Answer

Kenji,

je suis en train de penser que c'est peut-etre un Admin qui l'a déplacé...  désolé

Pour finir, chouchou270403, t'es en quel langage, qu'on te file le bon code ?

VB6, VB2005 ou .Net

@++

  Mortalino  
Le Mystérieux Chevalier "Provençal, le Gaulois" 
N'oubliez pas de lire le règlement

chouchou270403 · Answer

En VB6 merci beaucoup

chouchou270403 · Answer

ok je vais essayer merci beaucoup à toi

PCPT · Answer

ret non déclaré, chiffre au lieu de constantes, tu avais déjà toutes les réponses.

chouchou270403 · Answer

Voila j'ai essayé le code, c'est magnifique cela fonctionne à merveille je suis content de l'aide que vous apportez sur VB France c'est super de voir que dans ce monde il y a encore des gens qui aide les autres...

Encore merci à toi franckydeluka...

mortalino · Answer

Encore merci à toi franckydeluka... ...et PCPT

@++

  Mortalino  
Le Mystérieux Chevalier "Provençal, le Gaulois" 
N'oubliez pas de lire le règlement

cs_franckydeluka · Answer

hihi 
je crois que tu as touché une corde sensible chez Mortalino .. lol 
Spéciale dédicace tout de même pour PCPT qui est un modèle pour nous tous  !!

Deluka.

chouchou270403 · Answer

Désolé ce n'était pas mon but...

Cliquer sur la croix et il me demande dans une MsgBox oui ou non ?

16 réponses

Votre réponse

Discussions similaires