1.首先,我们创建一个类,类里面包含控件个数,并且有相应的方法,具体代码如下
Option Explicit
Private arr() As MSForms.TextBox
Private count As Integer '控件个数
'获得文本框个数,将文本框存入数组
Sub addcontrol(con As MSForms.TextBox)
count = count + 1
ReDim Preserve arr(1 To count) As MSForms.TextBox
Set arr(count) = con
End Sub
'批量清空文本框
Sub cleartextbox()
Dim i As Integer
For i = 1 To UBound(arr)
arr(i).Text = ""
Next i
End Sub
2.我们来做一个窗体,其布局和效果如下图所示
3.要想把文本框中的内容全部清除,就要将所有的文本框选中,然后清空,具体代码如下所示
Option Explicit
Dim mytext As New clstexbox '创建一个对象
Private Sub CommandButton2_Click() '清空所有的文本框
mytext.cleartextbox
End Sub
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Me.Controls '遍历每一个控件
If TypeName(c) = "TextBox" Then '控件类型为“TextBox”
mytext.addcontrol c '将文本框添加入数组
End If
Next
End Sub
4.效果如下所示,未按清空按钮之前
按了清空按钮之后,我们可以看到,只要是文本框的内容都被清空了