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

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            Ccounter = Convert.ToDouble(Me.TextBox2.Text) + Convert.ToDouble(Me.TextBox1.Text)
            Me.TextBox3.Text = Ccounter
            Me.TextBox2.Clear()
        End If
    End Sub

ou j'ai pas compris

[MADA BLACK]

Salut cher ProgElect
Merci beaucoup pour l'aide
Oui ca fonctionne tres bien .. mais simplement pour l'addition a la premiere fois .. mais la deuxieme KeyPress ne s'additionne pas correctement
Merci beaucoup
Cordialement
MADA

[Phil Rob]

Salut Mada,

Le code suivant devrait te convenir.
Comme ProgElect, c'est si j'ai bien compris ...

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
17
 
    Dim Ccounter As Double = 0
 
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
        TextBox3.Text = Ccounter + CType(TextBox1.Text, Double)
    End Sub
 
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            TextBox3.Text = Ccounter + CType(TextBox2.Text, Double)
        End If
     TextBox2.Clear  ' facultatif
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged
        Ccounter = CType(TextBox3.Text, Double)
    End Sub

[MADA BLACK]

Bonjour Phil Rob
Bonjour Maitre
Tres tres gentil de votre part
C'est exactement ce que je veux voir et avoir comme idee .. sauf une petite remarque .. j'ai voulu apres chaque operation ( ENTER ) .. TextBox2 sera vide (Empty)
Car avec votre code il faut supprimer cette ligne pour qu'il fonctionne tres bien .. et si je laisse cette ligne ( TextBox2.Clear ' facultatif ) je ne peux pas ecrire dans TextBox2
NB : Parfaitement resolu .. grace a votre impeccable solution j'ai simplement deplace cette ligne ici :

Code :

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

1
2
3
4
   Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged
        Ccounter = CType(TextBox3.Text, Double)
        TextBox2.Clear()  ' facultatif 
    End Sub

Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[Phil Rob]

J'avais effectivement mis la ligne TextBox2.Clear à la mauvaise place.
Je devais la mettre à l'intérieur du bloc If pour qu'elle ne soit exécutée qu'après un <Enter>.
Mais ta correction est aussi bien.

Désolé pour l'erreur.
Merci pour le feedback.

Très bon week-end