以下示例列举了窗体 Controls 集合中的所有控件。此过程将从窗体模块中调用,而 Me 关键字用来将 Form 对象传递到此过程。如果控件是文本框,此过程会设置某些属性。
' 调用 SetTextBoxProperties 过程。
SetTextBoxProperties Me
Sub SetTextBoxProperties(frm As Form)
Dim ctl As Control
' 列举 Controls 集合中的成员。
For Each ctl In frm.Controls
' 检查控件是否为文本框。
If ctl.ControlType = acTextBox Then
' 设置控件属性。
With ctl
.SetFocus
.Enabled = True
.Height = 400
.SpecialEffect = 0
End With
End If
Next ctl
End Sub