Question

我想要一个代码，它会在Visible = true的表单上循环通过文本框控件的名称。我知道这段代码构造错误，但我需要问是否有人可以指出我正确的方向。

Public Sub TxtBoxNamevisible(ByRef pfrm As Form)
Dim ctl As Control
Dim txtbx As TextBox

For Each txtbx In pfrm.Controls.visible = true
MsgBox txtbx.Name
Next txtbx
End Sub

Answer 1

pfrm.Controls.visible无法编译，因为Controls是一个集合。 Visible是该集合成员的受支持属性，但在集合本身不受支持。

循环浏览pfrm.Controls，检查每一个是Visible文本框，MsgBox是...... {/ p>的名称

Dim ctl As Control
For Each ctl In pfrm.Controls
    If ctl.ControlType = acTextBox And ctl.Visible = True Then
        MsgBox ctl.Name
    End If
Next ctl

如何循环文本框控件访问VBA

1 个答案: