Discussion :

[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 :

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

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

[Kreepz]

Bonjour,

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

Code :

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

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?

[subfestivus]

Bonjour ,

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

[Kreepz]

Bonjour ,

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

Code :

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

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.

[subfestivus]

Bravo ,
merci énormément _Ez3kiel

[_Ez3kiel]

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 :

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

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 :

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
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 :

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
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.