使用对象类型遍历窗体控件

2016年8月10日 作者： 来源：

如果控件的名称没有规律，可以使用For Each...Next 语句循环遍历所有控件，使用TypeName函数返回控件的对象类型，根据控件的对象类型进行相应的操作。
对于窗体中的控件，如下面的代码所示。
#001  Private Sub CommandButton1_Click()
#002      Dim Ctr As Control
#003      For Each Ctr In Me.Controls
#004          If TypeName(Ctr) = "TextBox" Then
#005              Ctr = ""
#006          End If
#007      Next
#008  End Sub
代码解析：
按钮的单击事件，遍历所有控件并把所有文本框的内容清空。
第2行代码，声明变量类型。
第3行代码，使用For Each...Next 语句遍历窗体所有控件。
第4行代码，使用TypeName 函数返回变量的对象类型。
TypeName 函数返回一个字符串，提供有关变量的信息，语法如下：
TypeName(varname)
参数varname是必需的，它包含用户定义类型变量之外的任何变量。
如果变量Ctr是文本框控件，无论该文本框的名称是否已经被修改，TypeName(Ctr)都会返回“TextBox”字符串。
对于工作表中的控件，则使用下面的代码。
#001  Private Sub CommandButton1_Click()
#002      Dim Obj As OLEObject
#003      For Each Obj In Me.OLEObjects
#004          If TypeName(Obj.Object) = "TextBox" Then
#005              Obj.Object.Text = ""
#006          End If
#007      Next
#008  End Sub