Discussion :

[nakata77]

Bonjour,

J'ai une fenêtre qui se ferme de 2 façon différents :
- par la croix en haut a droite
- par un boutons QUITTER que je crée
une fois appuyé dessus, un message aparait "Etes-vous sûr de vouloir quitter ?" et l'utilisateur a le choix entre Oui et NON

Mon problème est que je n'arrive pas a les gérer ensemble

quand j'appuie sur le NON du message "Etes-vous sûr de vouloir quitter ?" dans le bouton QUITTER il me ferme ma fenêtre et la fenêtre du message car la fonction continue et pareil quand j'appuie sur le NON de la croix
en résumé: je n'arrive pas à anuler

voici le code pour le bouton QUITTER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    me.close()
End Sub

et pour la croix en haut a droite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    Dim test As String
    test = MsgBox("Etes-vous sûr de vouloir quitter ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Fermeture de la fenêtre")
 
    If test = 6 Then
        exit sub
    Else
        Me.Enabled = True
    End If
End Sub

[toniolol]

Salut,
la première chose c'est que tu n'utilises pas le bon évènement, tu utilises .Closed au lieu de .Closing donc ta forme est déjà fermée quand tu pose la question à l'utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
       Try
            Dim rep As DialogResult = MessageBox.Show("Etes-vous certain de vouloir quitter l'application ?", "Confirmation d'arrêt...", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If rep = DialogResult.Yes Then
                ...
            Else
                e.Cancel = True
            End If
        Catch
        End Try
    End Sub

[nakata77]

Merci