Problème message de confirmation avant la fermeture du programme [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
2 mai 2017
-
Messages postés
14676
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 juillet 2020
-
Salut j'ai un problème,

En gros je suis en train de créer un Gestionnaire Des Tâches et je veux faire un message de confirmation quand l'utilisateur clique sur le bouton pour fermer le programme :


Jusque la j'ai réussi sauf que quand je clique sur "Oui" le message se ferme et se ré-ouvre aussi-tôt, pareille pour le bouton "Annuler", quand j'appuie sur le bouton "Non", normalement il doit être cacher (et donc en arrière plan) sauf que le programme ce ferme complètement.

Voila mon code :

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("Do you want close the program?", "Close?", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.No Then

e.Cancel = True
Fade(250, "Hide")
NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info ' Icône information de Windows.
NotifyIcon1.BalloonTipTitle = "TaskManager" ' Titre du message.
NotifyIcon1.BalloonTipText = "The task manager does not stop, it is still running" ' Corps du message.
Me.NotifyIcon1.ShowBalloonTip(0)

ElseIf DialogResult.Yes Then

Close()

ElseIf DialogResult.Cancel Then

e.Cancel = True

End If
End Sub


Voila mon problème, en attendant une réponse à mon problème, je vous souhaite une bonne journée/ bonne fin de journée.

1 réponse

Messages postés
14676
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 juillet 2020
237
Actives "Option Explicit" et "Option Strict"
Et corrige tes erreurs.
Messages postés
14676
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 juillet 2020
237
Dans les propriétés du projet.
Messages postés
5
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
2 mai 2017
>
Messages postés
14676
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 juillet 2020

Ah merci :)
Messages postés
5
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
2 mai 2017
>
Messages postés
5
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
2 mai 2017

Je n'arrive toujours pas à trouver mon erreur, aurais - tu une solution à mon problème ?
Messages postés
5
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
2 mai 2017
>
Messages postés
5
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
2 mai 2017

Ah en faite c'est bon, j'ai trouvé une alternative à mon problème, voila le code pour ce qui en aurait besoins :

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim askquit As MsgBoxResult
askquit = MsgBox("Do you want close the program?", MsgBoxStyle.YesNoCancel)
If askquit = MsgBoxResult.No Then
e.Cancel = True
Fade(250, "Hide")
NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info ' Icône information de Windows.
NotifyIcon1.BalloonTipTitle = "TaskManager" ' Titre du message.
NotifyIcon1.BalloonTipText = "The task manager does not stop, it is still running" ' Corps du message.
Me.NotifyIcon1.ShowBalloonTip(0)
ElseIf askquit = MsgBoxResult.Yes Then

ElseIf askquit = MsgBoxResult.Cancel Then
e.Cancel = True
Else
MessageBox.Show("Error!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Messages postés
14676
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 juillet 2020
237
Il s'agit d'une méthode préférable en effet.
Sinon, regardes aussi du côté de "Select Case" pour améliorer ton "If".