Problème message de confirmation avant la fermeture du programme

Résolu/Fermé

AnneauNiMousse Messages postés 5 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 2 mai 2017 - 1 mai 2017 à 22:14
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 2 mai 2017 à 18:24

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:

Problème message de confirmation avant la fermeture du programme
Confirmation de lecture whatsapp - Guide
Recuperer message whatsapp - Guide
Forcer la fermeture d'un programme - Guide
Message d'absence thunderbird - Guide
Confirmation de lecture gmail - Guide

1 réponse

Réponse 1 / 1

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 330
1 mai 2017 à 22:32

Actives "Option Explicit" et "Option Strict"
Et corrige tes erreurs.

AnneauNiMousse Messages postés 5 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 2 mai 2017
1 mai 2017 à 22:48

Tout d'abord merci pour votre réponse, mais comment active t'on l'option Explicit et l'option Strict ?

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 330
1 mai 2017 à 22:51

Dans les propriétés du projet.

AnneauNiMousse Messages postés 5 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 2 mai 2017 > NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024
2 mai 2017 à 11:20

Ah merci :)

AnneauNiMousse Messages postés 5 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 2 mai 2017 > AnneauNiMousse Messages postés 5 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 2 mai 2017
2 mai 2017 à 11:22

Je n'arrive toujours pas à trouver mon erreur, aurais - tu une solution à mon problème ?

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

Discussions similaires

qu'est-ce que diff message ?

Que veut dire le signe "^^" dans les SMS ou sur MSN ?

GWXUX a cessé de fonctionner

programme qui n'affiche pas le mot secret

mail forwardé, c'est quoi

Discussions similaires

Newsletters