求教：能不能使用循环遍历Form上的所有控件

Question

不知道VB能不能实现。
谢谢！

Answer 1

dim varA as control
for each varA in form1.controls
 'do something
next

Answer 2

'遍历窗体上的控件
’输出控件类型
'根据控件类型，做你想做的事Dim bb As Control
For Each bb In Form1.Controls
    MsgBox TypeName(bb)
    If TypeOf bb Is CommandButton Then
       msgbox bb.Caption
    End If
Next

Answer 3

Dim i As Integer
For i = 0 To Me.Controls.Count - 1
    Debug.Print Me.Controls(i).Name
Next

Answer 4

也可用collection对象来做：
dim ctlControl as collection
Dim objControl As TextBox
For Each objControl In cltControl    ' Iterate through elements.
    ...
Next objControl
这种方法可用来集中检查文本框输入是否合法，如必须为数字等功能