求助！vb相关，高手会认为超简单！谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/02 01:00:56
你们好，我刚学vb，我新建了4个空白text的控件，分别命名为text1.text,text2.text．．3.4．等，
我想在text4=text1+text2+text3

不想要单击时间，用change自动生成，哪为高手可以提供代码？谢谢．

Private Sub Text1_Change()
Text4 = Val(Text1) + Val(Text2) + Val(Text3)
End Sub

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

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

同时要注意如果TEXT1、2、3里的内容有不是数字的内容（包括全角数字）就回出错

使用控件数组做。

在控件数组的change事件中，检查text内容是否为数字，不是则立即返回，或返回焦点。

是数字，使用for循环，将数组中所有text控件内容相加，数值赋给text4