Question

VB中 如何实现文本框自动运算？

首先是三个文本框 2个输入数值一个是计算结果
TEXT1=TEXT2+TEXT3

以下简称T1=T2+T3

怎么实现 T2或者T3输入后T1就自动赋值 不需要按任何键 如何实现？

Answer 1

Private Sub Text1_Change()
Call tSum
End Sub

Private Sub Text2_Change()
Call tSum
End Sub

Sub tSum()
If IsNumeric(Text1.Text) And Text1.Text <> "" And IsNumeric(Text2.Text) And Text2.Text <> "" Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
Text3.Text = ""
End If
End Sub

Answer 2

Private Sub Text2_Change()
Text1 = Val(Text2) + Val(Text3)
End Sub

Private Sub Text3_Change()
Text1 = Val(Text2) + Val(Text3)
End Sub