J'ai un probleme avec messagebox

Bonjour a tous
Je ne comprend pas pourquoi ce moceau de commande ne marche pas
Si quelqu'un a une idée je suis preneur
Il s'agit de programmation vb 2005 d'un messagebox avec validation.
la variable reponse reste a none{0}
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub btnFermeture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFermeture.Click Dim reponse As Windows.Forms.DialogResult MessageBox.Show("Voulez-vous sauvegarder les modifications", "Attention", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1) If reponse = Windows.Forms.DialogResult.OK Then MessageBox.Show("bonjour") End If Me.Visible = False End Sub
Je pens qu'il y a un truc tout bête mais je vois pas.
Je vous remercie a l'avance de votre aide

:salut:

ton test n'est pas bon... essaye ca ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
   Private Sub btnFermeture_Click()
 
        Dim test As Integer
'on recupere le resultat de la messagebox dans test
        test = MessageBox.Show("Voulez-vous sauvegarder les modifications", "Attention", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1)
 
'test sur le resultat du messagebox
        MessageBox.Show(test)
 
'si test = 6 => clic sur "oui", test = 7 => clic sur "non"
        If test = 6 Then
            MessageBox.Show("bonjour")
        End If
 
    End Sub

Merci boubounne

Ca marche