Probleme visual basic

ton programme fait quoi au juste?

fait le calcul des resultat a partir des valeurs initiales , mais j'utilise ces valeurs et resultats dans des des des differents formulaires a l'aide de Form8.textbox1.text par exemple

alors écris nous le code pour le voir

le code du menu principale:
Public Class Form22

Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Form5.ShowDialog()
End Sub

Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Form18.ShowDialog()
End Sub

Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form3.ShowDialog()
End Sub

Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form6.ShowDialog()
End Sub

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form7.ShowDialog()
End Sub
Le code du menu du form 15 ou se passe l'erreur :
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged, TextBox4.VisibleChanged
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim f As Double
Dim g As Double

a = CType(Form11.TextBox2.Text, Double)
b = CType(Form7.TextBox4.Text, Double)
c = CType(Form7.TextBox3.Text, Double)
f = CType(Form10.TextBox1.Text, Double)
d = (c + f / 100) / (4.44 * 50 * b * a)
g = Int(d) + 1
TextBox4.Text = g
End Sub

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged, TextBox5.VisibleChanged
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim f As Double
Dim g As Double
Dim h As Double
Dim lsp1 As Double
Dim les1 As Double
Dim nc As Double
Dim ldc As Double
Dim i As Double
Dim j As Double
Dim k As Double
Dim l As Double
Dim dn As Double
a = TextBox4.Text
b = CType(Form16.TextBox6.Text, Double)
c = CType(Form14.TextBox3.Text, Double)
d = Int(b / (1.03 * c))
nc = a / d
f = Int(c)
g = CType(Form16.TextBox1.Text, Double)
h = CType(Form16.TextBox2.Text, Double)
ldc = lsp1 + f * 8 * 1.03 * c
lsp1 = 2 * (g + h + 6 + 1.03 * c)
If nc = f Then
les1 = d * (f * lsp1 + 8 * 1.03 * c * (f / 2) * (f - 1))
TextBox5.Text = les1
ElseIf nc > f Then
les1 = d * (f * lsp1 + 8 * 1.03 * c * (f / 2) * (f - 1)) + a - f * d
TextBox5.Text = les1
End If
i = CType(Form6.textbox1.Text, Double)
j = CType(Form7.TextBox4.Text, Double)
k = CType(Form9.TextBox1.Text, Double)
l = i / (j * k)
dn = ((l * 4) / 3.14)

TextBox6.Text = 1.8 * 10 ^ 8 * les1 * 4 / (dn ^ 2 * 3.14)
TextBox1.Text = ldc
TextBox2.Text = 1.03 * c
TextBox3.Text = b - (a - f * d) * 1.03 * c

End Sub

Bonjour,

La fonction CType est utilisée pour changer un int en long, ou un long en date... Pour les strings il faut utiliser la fonction Val.

Dim a as Double
a = Val(TextBox4.Text)

;)