Calcul entre textbox

Version imprimable

Bonjour ,
lorsque je rentre une valeur dans une textbox j'ai se message d'erreur :
Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll
Informations supplémentaires : La conversion de la chaîne "" en type 'Integer' n'est pas valide.

Merci de votre expertise
Code:

1 2 3 4 5 6 7 8 9 10 Public Class Form1 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Me.TextBox3.Text = CStr(CInt(Me.TextBox1.Text) * CInt(Me.TextBox2.Text)) End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged Me.TextBox3.Text = CStr(CInt(Me.TextBox1.Text) * CInt(Me.TextBox2.Text)) End Sub End Class

02/05/2014, 09h10
Kreepz

Bonjour,

D'une part tu n'est obligé de mettre tout les

Code:

Me.

Sinon je ne pense pas que tu sois obligé de convertir en int pour effectuer une multiplication. Sauf si tu souhaite que ton résultat soit un entier et non un décimal?
02/05/2014, 09h21
subfestivus

Bonjour ,

merci de votre réponse , les valeurs sont des décimales.

Citation:

Envoyé par subfestivus

Bonjour ,
lorsque je rentre une valeur dans une textbox j'ai se message d'erreur :
Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll
Informations supplémentaires : La conversion de la chaîne "" en type 'Integer' n'est pas valide.

Merci de votre expertise

Code:

1
2
3
4
5
6
7
8
9
10
Public Class Form1
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Me.TextBox3.Text = CStr(CInt(Me.TextBox1.Text) * CInt(Me.TextBox2.Text))
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Me.TextBox3.Text = CStr(CInt(Me.TextBox1.Text) * CInt(Me.TextBox2.Text))
    End Sub
End Class

L'exception est dû au fait que Textbox1.Text ou Textbox2.Text est null lorsque tu passes dans l’événement, il faut que tu testes que la Textbox soit bien remplie, et également qu'elle puisse être castable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim a As Integer
        Dim b As Integer
 
        If TextBox1.Text <> String.Empty And TextBox2.Text <> String.Empty Then
            If Integer.TryParse(TextBox1.Text, a) And Integer.TryParse(TextBox2.Text, b) Then
                TextBox3.Text = CStr(a * b)
            End If
        End If
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Dim a As Integer
        Dim b As Integer
 
        If TextBox1.Text <> String.Empty And TextBox2.Text <> String.Empty Then
            If Integer.TryParse(TextBox1.Text, a) And Integer.TryParse(TextBox2.Text, b) Then
                TextBox3.Text = CStr(a * b)
            End If
        End If
    End Sub

Et sinon pour ton code, on peut optimiser un peu pour éviter de devoir coder en double ... (Et sachant que .TryParse testera aussi si le texte est vide ou non
)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        MultiplierTextBox()
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        MultiplierTextBox()
    End Sub
 
 
    Private Sub MultiplierTextBox()
        Dim a As Integer
        Dim b As Integer
 
 
            If Integer.TryParse(TextBox1.Text, a) And Integer.TryParse(TextBox2.Text, b) Then
                TextBox3.Text = CStr(a * b)
            End If
 
    End Sub

EDIT: S'il faut des décimal, il faudra remplacer Integer.TryParse par Decimal.TryParse et aussi changer le type de a et b.

Citation:

Envoyé par subfestivus

Bonjour ,

merci de votre réponse , les valeurs sont des décimales.
Code:

1 2 3 4 5 6 7 8 9 10 Public Class Form1 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged TextBox3.Text = TextBox1.Text * TextBox2.Text End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged TextBox3.Text = TextBox1.Text *TextBox2.Text End Sub End Class
Si tu souhaite arrondir ton résultat tu peux utiliser la fonction rond pour définir le nombre de chiffres après la virgule. ;)

02/05/2014, 09h34
subfestivus

Bravo ,
merci énormément _Ez3kiel