将多个文本框的数据相加

2023年12月9日发(作者：瑕疵必报和睚眦必报)

-

技巧1

多个文本框数据相加在技巧102中，我们在TextBox1、TextBox2中输入完数据后，利用文本框的Change事件使TextBox3显示其两者相乘的金额，但是如果窗体中有多个文本框，需要在每一个文本框的Change事件中写上相同的重复代码，因此使用类模块可以简化代码。在附件的窗体有七个文本框，其中六个用来输入数据，一个用来显示其他六个文本框相加后的合计数，首先打开VBE，插入一个类模块建立一个类，类模块的名字就是类的名字修改为“cmds”，在类模块中输入下面的代码：x代码解析：使用Public语句声明变量cmd是用来响应由TextBox对象触发的事件的对象变量。在窗体的Initialize事件中写入下面的代码：DimcolAsNewCollectionPrivateSubUrForm_Initialize()DimiAsIntegermyccmdsDimAsFori=1To6Setmyc=New =ls("TextBox" & i)NextSetmyc=Nothing End Sub代码解析：第1行代码在模块顶部声明变量col的类型为集合。第5行到第9行代码，将窗体中的六个文本框赋给col集合。（关于类模块请参阅论坛中有关的资料。）在类模块中写入下面的代码：PrivateSubcmd_Change()DimiAsIntegerDvalDoubleDimAsFori=1To6Dval=Dval+Val(ls("TextBox"&i))=DvalNext End Sub代码解析：窗体中的六个文本框统一的Change事件，当任何一个文本框中的数据发生变化时，所有文本框相加的合计数显示在最后一个文本框中。运行窗体在文本框中输入数据结果如图106‑1所示。图 106多个文本框数据相加‑1

-