VBA用户窗体中如何循环遍历公共数组变量oEventHandler？

场景说明 #

我在制作VBA用户窗体时，有30组用于搜索的TextBox和对应的ListBox控件（命名为TextBox1_{30、ListBox1}30），使用类模块clsSearchableDropdown来实现搜索功能。为了避免重复写30次绑定代码，想用循环简化，但不知道如何正确遍历公共类数组。

公共数组声明：

Public oEventHandler(1 To 30) As New clsSearchableDropdown

数组索引从1到30，每个元素对应一组控件的事件处理类实例。

原重复代码（可正常运行） #

With oEventHandler1
    ' 绑定控件到类
    Set .SearchListBox = Me.ListBox1
    Set .SearchTextBox = Me.TextBox1
    
    ' 设置类的默认参数
    .MaxRows = 10
    .ShowAllMatches = True
    .CompareMethod = vbTextCompare
    .WindowsVersion = False
End With

错误的循环尝试 #

我错误地把类数组当成窗体控件来访问，代码如下：

Dim i As Integer

For i = 1 To 30
    With Me.Controls.Item("oEventHandler" & i)
        ' 绑定控件
        Set .SearchListBox = Me.Controls.Item("ListBox" & i)
        Set .SearchTextBox = Me.Controls.Item("TextBox" & i)
        
        ' 设置参数
        .MaxRows = 10
        .ShowAllMatches = True
        .CompareMethod = vbTextCompare
        .WindowsVersion = False
    End With
Next i

问题在于oEventHandler是公共数组，不是窗体控件，不能通过Me.Controls访问。

正确的循环实现 #

直接通过数组索引遍历oEventHandler即可，控件部分用Me.Controls按名称获取：

Dim i As Integer

For i = 1 To 30
    With oEventHandler(i)
        ' 绑定对应的TextBox和ListBox
        Set .SearchTextBox = Me.Controls("TextBox" & i)
        Set .SearchListBox = Me.Controls("ListBox" & i)
        
        ' 设置类的默认参数
        .MaxRows = 10
        .ShowAllMatches = True
        .CompareMethod = vbTextCompare
        .WindowsVersion = False
    End With
Next i

关键说明 #

1. 类数组直接通过oEventHandler(i)访问元素，不需要字符串拼接查找
2. Me.Controls("TextBox" & i)是正确获取窗体控件的方式，因为TextBox属于窗体的Controls集合
3. 确保数组下标范围（1到30）和控件命名的序号完全对应

内容的提问来源于stack exchange，提问作者Liam Russell