Discussion :

[Filipegomes]

Bonjour à tous,

J'ai une question toute bête mais je suis débutant
je voudrais lorsque je clique sur le menu Quitter de mon application appeler directement
Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

ce qui m'évitera de faire deux fois le même code pour faire des testes et fermer mon application.

je sais qu'il faut faire :

Code :

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

1
2
3
4
 
Private Sub MenuQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuQuitter.Click
  Form1_FormClosing(????????)
End Sub

mon problème c'est que je ne sais pas quoi mettre à la place des ???????.

merci pour votre aide.

[ekinox17]

Code :

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

1
2
3
Private Sub MenuQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuQuitter.Click
  Me.close()
End Sub

[dv-2008]

bjr voila mon code

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MessageBox.Show("Are you sure to exit?", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If MsgBoxResult.Yes Then
            e.Cancel = False
        ElseIf MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub

quand je clique sur oui ou non oon m'affiche toujours le messagebox et la form ne se ferme pas
j'ai encore un boutton quitter sur ma form

Code :

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

1
2
3
Private Sub CmdQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuitter.Click
        End
    End Sub

se que je veu c'est que quand je ferme la form avc le button quitter ou n'improte qu'elle autre maniére le messagebox doit s'afficher
et merci d'avance

[Poulain]

Essai un truc comme ça:

Code :

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

1
2
3
4
5
6
7
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MessageBox.Show("Are you sure to exit?", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question).dialogresult = dialogresult.yes then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End Sub

[dv-2008]

Merci sa marche bien