[VB.NET 2005] Appeler FormClosing à partir d'un menu

Bonjour à tous,

J'ai une question toute bête mais je suis débutant :D
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:

---

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.

Code:

---

1 2 3

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

---

bjr voila mon code

Code:

---

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:

---

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:mrgreen:

Essai un truc comme ça:

Code:

---

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

---

Merci sa marche bien