简单VB加减法

来源：百度知道 编辑：UC知道 时间：2024/06/27 03:34:34
就是怎么能让Text1+Text2 = Command1
而且是自动显示答案 就是当Text1或2发生变化Command1也自动发生变化的`~

Private Sub Text1_Change()
Command1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Text2_Change()
Command1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub
看看可是...

我忘了,呵呵.
我想应该是这样的.
当Text1或Text2失去焦点的时候,执行计算代码.
因为你填写数据的时候,它们当中的一个获得焦点,然后失去的时候(数据发生了变化的时候),执行代码,就出结果了哦.

Private Sub Text1_Change()
call command1 '(注意用CALL后面就不能是COMMAND1之类的控件名字)
END SUB
Private Sub Text2_Change()
CALL COMMAND1
END SUB

'COMMAND1是你要让它自动执行的命令,不一定是按钮,你可以象声明按钮一样声明一个过程,当TEXT1或者2改变后,这个过程也自动执行任务,只是这个声明的过程不象按钮那样在程序外观上有形状,但功能一样.

我试过tanghailin26 给出的方法可行

应该用KeyUp事件而不是用OnChange事件，KeyUp事件可以让你输完之后立刻变化，而OnChange事件要等失去光标之后才能触发的

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Command1.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
Command1.Caption = Val(Text1.Text