textbox

[rolex]

Merhaba

2 tane oluşturdugum Textbox da ki rakamların toplamını başka bir texbox 3 üncü textbox a yazmasını istiyorum nasıl bir kod yaza bilirim.

Teşekkürler

 

[Tarkan VURAL]

Kodu bir butona bağlamak istiyorsanız

private sub commandbutton()
textbox3.value=val(textbox1.value) + val(textbox2.value)
end sub

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

[vb:1:2f4ab1ada2]Dim a, b As Double

Private Sub TextBox1_Change()
If TextBox1 = "" Then
a = 0
Else
a = TextBox1.Value
End If
TextBox3 = a
End Sub

Private Sub TextBox2_Change()
If TextBox2 = "" Then
b = 0
Else
b = TextBox2.Value
End If
TextBox3 = b
End Sub

Private Sub TextBox3_Change()
TextBox3 = a + b
End Sub
[/vb:1:2f4ab1ada2]

 

[mehmett]

Þöyle de olabilir mi?

[vb:1:53eab7a046]Private Sub TextBox3_Enter()
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub[/vb:1:53eab7a046]