使用变量设置用户窗体对象名称

Question

我正在开发一个特定的项目，我需要循环访问一组用户表单对象并对每个对象执行一些操作（如果是标签）。我将它们命名为 lbl1、lbl2、lbl3……等等。我需要找到一种方法来循环并用我的循环切换它们的可见性。

我已尝试以下方法但无济于事：

（这是代码的不完整部分，仅使用相关信息）

Dim i as Long
Dim result as Object

'… ‘code to define what i is

Set result = “lbl & i 
'… ‘ more code to continue the loop

Answer 1

您可以利用

Controls

收藏。尝试一下-

Private Sub CommandButton1_Click()
Dim i As Long

    For i = 1 To 3
        Me.Controls("lbl" & i).Visible = False
    Next

End Sub