Public Class Form2
Private Sub BT_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_1.Click
Dim Somme As Integer = 0
If Me.CHK_1.Checked Then
Somme = Somme + 1
End If
If Me.CHK_2.Checked Then
Somme = Somme + 2
End If
If Me.CHK_3.Checked Then
Somme = Somme + 4
End If
If Me.CHK_4.Checked Then
Somme = Somme + 8
End If
If Me.CHK_5.Checked Then
Somme = Somme + 16
End If
If Me.CHK_6.Checked Then
Somme = Somme + 32
End If
Me.TXT_CHK.Text = Somme
End Sub
End Class
Ce code sert donc a calculer les valeurs cocher dans les checkbox et affiche le resultat dans une Textbox, serait-il possible de faire apparaitre le résultat dans une msgbox ? genre "Le resultat" et un bouton "Ok"
Excuse moi de te déranger, j'ai justement utiliser cette fonction, se qui donne :
Public Class Form2
Private Sub BT_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_1.Click
Dim Somme As Integer = 0
If Me.CHK_1.Checked Then
Somme = Somme + 1
End If
If Me.CHK_2.Checked Then
Somme = Somme + 2
End If
If Me.CHK_3.Checked Then
Somme = Somme + 4
End If
If Me.CHK_4.Checked Then
Somme = Somme + 8
End If
If Me.CHK_5.Checked Then
Somme = Somme + 16
End If
If Me.CHK_6.Checked Then
Somme = Somme + 32
End If
MessageBox.Show(Somme)
End Sub
End Class
Mais rien ne se passe lorsque je clique sur le bouton...
Autant pour moi alors, je ne suis qu'un simple débutant
Passer d'une Textbox a une Msgbox est-ce possible ??
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.
?