Discussion :

[sergiop]

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 :

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

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

[boubounne]

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

Code :

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

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

[sergiop]

Ca marche