类模块中ComboBox Click事件未触发问题及代码示例求助

我来帮你一步步梳理问题，解决事件不触发和编译错误的困扰：

1. 核心原理回顾 #

动态创建的控件要绑定类模块事件，必须保证类实例的引用不被销毁——也就是保存类实例的集合要放在模块级（过程外部），不能放在过程内部，否则过程执行完后实例就会被系统回收，事件自然不会触发。

2. 代码修正与位置说明 #

（1）标准模块：Option Explicit与全局变量的位置 #

把Option Explicit放在标准模块的最顶部，同时将保存类实例的集合、类对象声明为模块级变量（不能放在过程内部）：

Option Explicit

' 模块级变量：保存类实例的集合，必须放在过程外部
Private collInputCombo As Collection
' 临时类对象变量
Private inputComboH As cComboHandler

Public Sub CreateDynamicCombos()
    Dim userformCombo As MSForms.ComboBox
    Dim k As Integer
    
    ' 初始化集合（避免重复创建导致的错误）
    If collInputCombo Is Nothing Then
        Set collInputCombo = New Collection
    End If
    
    ' 确保窗体已加载（避免容器未初始化引发的91错误）
    If UserForm1.Visible = False Then
        Load UserForm1
    End If
    
    ' 创建ComboBox
    Set userformCombo = UserForm1.MultiPage1.Page1.Controls("Frame1").Add("Forms.ComboBox.1")
    With userformCombo
        .Name = "DynamicComboBox" ' 建议用唯一名称，避免与现有控件冲突
        .Top = 20
        .Left = 20
        .Width = 150
        ' 添加选项
        For k = 0 To 5
            .AddItem "Item" & k
        Next k
    End With
    
    ' 绑定类模块事件
    Set inputComboH = New cComboHandler
    Set inputComboH.inputComboH = userformCombo
    collInputCombo.Add inputComboH
End Sub

（2）类模块cComboHandler：Option Explicit的位置 #

同样在类模块顶部添加Option Explicit，确保变量类型匹配：

Option Explicit

Public WithEvents inputComboH As MSForms.ComboBox

Public Sub inputComboH_Click()
    MsgBox "ComboBox被点击了！选中项：" & inputComboH.Value
End Sub

（3）用户窗体UserForm1的Initialize事件 #

在用户窗体的模块里，调用创建ComboBox的过程：

Option Explicit

Private Sub UserForm_Initialize()
    ' 调用标准模块的创建过程
    CreateDynamicCombos
End Sub

3. 解决91错误的关键 #

你提到的91错误（对象变量或With块变量未设置），通常是因为窗体或容器控件还没初始化就尝试创建控件。上面的代码里加了Load UserForm1确保窗体先加载，再创建控件，就能避免这个问题。

另外注意：

• 不要在标准模块的创建过程里直接写UserForm1.Show，建议单独写一个启动过程：

  Public Sub StartApp()
      UserForm1.Show
  End Sub
  

  运行这个StartApp来启动程序，就不会出现冲突。

4. 验证步骤 #

1. 确保所有模块（标准模块、类模块、用户窗体）顶部都有Option Explicit；
2. 运行StartApp过程，窗体显示后点击动态创建的ComboBox，应该会弹出消息框；
3. 如果还是没触发事件，检查集合是否正确添加了类实例，以及控件的WithEvents声明是否是MSForms.ComboBox（不要写成普通的ComboBox）。

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