Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
SVP .. j'ai besoin d'aide pour resoudre ce probleme
j'ai 3 TextBox ( TextBox1,TextBox2,TextBox3 )
Je veux lorsque je tape un chiffre dans TextBox2 .. avec la touche ENTER s'ajoutera automatiquement la somme ( TextBox1 + TextBox2 ) .. meme si je repete plusieurs chiffres .. toujours s'affichera la somme automatiquement ..
Dans cet exemple :

La somme affichee dans TextBox3 est 8.99
La somme affichee dans TextBox2 est 12.97
Alors si j'ecris ce chiffre (12.97) et je tape la touche ENTER s'affichera automatiquement dans TextBox3 la somme ( 21.96 )
Ensuite je tape dans TextBox2 comme exemple le chiffre ( 45.87 ) .. avec ENTER s'affichera dans TextBox3 la somme ( 67.83 ) et ainsi de suite
J'ai essaye avec ce code mais malheureusement ne fonctionne pas correctement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
    Dim Ccounter As Double = 0
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        TextBox3.Text = Val(TextBox1.Text)
    End Sub
    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            Me.TextBox3.Clear()
            Ccounter += Convert.ToDouble(Me.TextBox2.Text)
            Me.TextBox3.Text = Ccounter
            Me.TextBox2.Clear()
        End If
    End Sub
End Class

Merci beaucoup d'avance pour l'aide
Amicalement
MADA