Problème message de confirmation avant la fermeture du programme

Résolu
AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
NHenry Messages postés 15221 Date d'inscription   Statut Modérateur Dernière intervention   -
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.
A voir également:

1 réponse

Réponse 1 / 1
NHenry Messages postés 15221 Date d'inscription   Statut Modérateur Dernière intervention   366
 
Actives "Option Explicit" et "Option Strict"
Et corrige tes erreurs.
0
AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Tout d'abord merci pour votre réponse, mais comment active t'on l'option Explicit et l'option Strict ?
0
NHenry Messages postés 15221 Date d'inscription   Statut Modérateur Dernière intervention   366
 
Dans les propriétés du projet.
0
AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   > NHenry Messages postés 15221 Date d'inscription   Statut Modérateur Dernière intervention  
 
Ah merci :)
0
AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   > AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Je n'arrive toujours pas à trouver mon erreur, aurais - tu une solution à mon problème ?
0
AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   > AnneauNiMousse Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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
0

Discussions similaires

SMS message vocal arnaque ?
kikidefer -
brucine -

9 réponses