將多個文本框的數據相加

更新時間:2023-12-09 21:33:49 閱讀：評論：0

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