Problème message de confirmation avant la fermeture du programme
Résolu
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 :
Voila mon problème, en attendant une réponse à mon problème, je vous souhaite une bonne journée/ bonne fin de journée.
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
-
ModérateurActives "Option Explicit" et "Option Strict"
Et corrige tes erreurs.
-
-
-
@NHenryAh merci :)
-
@AnneauNiMousseJe n'arrive toujours pas à trouver mon erreur, aurais - tu une solution à mon problème ?
-
@AnneauNiMousseAh 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
-
