如何将复制控件的事件触发器复制到新Multipage

针对你在开发Excel自动化软件时，动态创建Multipage页面后无法复用原有控件事件的问题，这里提供两种可行的解决方案，其中类模块方案是最推荐的VBA动态控件事件处理方式：

方案一：使用类模块统一管理动态控件事件 #

这是VBA中处理动态控件事件的标准方案，能避免控件名称绑定的限制，实现事件逻辑复用：

1. 创建类模块
   插入一个新的类模块（右键VBA工程→插入→类模块），命名为clsDynamicControlEvents，然后添加以下代码，定义需要处理的控件类型及其事件：

   Public WithEvents dynComboBox As MSForms.ComboBox
   Public WithEvents dynCommandButton As MSForms.CommandButton
   Public WithEvents dynListBox As MSForms.ListBox
   
   ' ComboBox变更事件（复用你原有控件的逻辑）
   Private Sub dynComboBox_Change()
       ' 替换为你原有ComboBox的事件处理代码
       MsgBox "动态ComboBox [" & dynComboBox.Name & "] 内容已变更"
   End Sub
   
   ' CommandButton点击事件
   Private Sub dynCommandButton_Click()
       ' 替换为你原有按钮的事件处理代码
       MsgBox "动态按钮 [" & dynCommandButton.Name & "] 被点击"
   End Sub
   
   ' ListBox双击事件
   Private Sub dynListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
       ' 替换为你原有ListBox的双击事件代码
       MsgBox "动态ListBox [" & dynListBox.Name & "] 被双击"
   End Sub
   

2. 在UserForm中声明事件集合
   在你的UserForm代码模块顶部，声明一个集合来保存类实例（防止类实例被自动回收，导致事件失效）：

   Private colControlEvents As New Collection
   

3. 动态创建控件并绑定事件
   以父ListBox双击触发创建子Multipage页面为例，添加以下代码：

   Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
       Dim newPage As MSForms.MultiPagePage
       Dim newFrame As MSForms.Frame
       Dim newCombo As MSForms.ComboBox
       Dim newBtn As MSForms.CommandButton
       Dim eventHandler As clsDynamicControlEvents
   
       ' 创建新的子Multipage页面
       Set newPage = Me.SubMultiPage.Pages.Add("Page_" & Me.SubMultiPage.Pages.Count)
       newPage.Caption = "动态页面" & Me.SubMultiPage.Pages.Count
   
       ' 复制/创建Frame（这里以创建为例，你也可以复制原有Frame控件）
       Set newFrame = newPage.Controls.Add("Forms.Frame.1")
       newFrame.Name = "Frame_" & newPage.Index
       newFrame.Top = 10: newFrame.Left = 10
       newFrame.Width = 300: newFrame.Height = 150
   
       ' 创建ComboBox（或复制原有ComboBox）
       Set newCombo = newFrame.Controls.Add("Forms.ComboBox.1")
       newCombo.Name = "Combo_" & newPage.Index
       newCombo.Top = 20: newCombo.Left = 20: newCombo.Width = 150
       newCombo.AddItem "选项1": newCombo.AddItem "选项2"
   
       ' 创建CommandButton（或复制原有按钮）
       Set newBtn = newFrame.Controls.Add("Forms.CommandButton.1")
       newBtn.Name = "Btn_" & newPage.Index
       newBtn.Caption = "提交": newBtn.Top = 60: newBtn.Left = 20
   
       ' 绑定ComboBox事件
       Set eventHandler = New clsDynamicControlEvents
       Set eventHandler.dynComboBox = newCombo
       colControlEvents.Add eventHandler
   
       ' 绑定CommandButton事件
       Set eventHandler = New clsDynamicControlEvents
       Set eventHandler.dynCommandButton = newBtn
       colControlEvents.Add eventHandler
   End Sub
   

方案二：复制控件后手动关联事件（不推荐） #

如果坚持复制已有控件，可通过动态添加事件过程代码实现绑定，但需要启用VBA项目信任访问，维护性差：

' 通用事件处理函数
Private Sub HandleComboChange(ctrl As MSForms.ComboBox)
    ' 复用原有ComboBox的事件逻辑
    MsgBox ctrl.Name & " 内容变更"
End Sub

' 给动态控件添加事件绑定代码
Private Sub AttachEventHandler(ctrl As MSForms.Control, eventName As String, handlerFunc As String)
    Dim codeMod As VBIDE.CodeModule
    Dim codeText As String
    Dim lineNum As Long

    Set codeMod = ThisWorkbook.VBProject.VBComponents(Me.Name).CodeModule
    lineNum = codeMod.CountOfLines + 1

    ' 生成事件过程代码
    codeText = "Private Sub " & ctrl.Name & "_" & eventName & vbCrLf & _
               "    Call " & handlerFunc & "(" & ctrl.Name & ")" & vbCrLf & _
               "End Sub"
    codeMod.InsertLines lineNum, codeText
End Sub

' 使用示例：复制控件后调用
' AttachEventHandler newCombo, "Change", "HandleComboChange"

注意：此方法需要在Excel选项中启用"信任对VBA项目对象模型的访问"，存在安全风险，且代码修改后需要重新保存，不适用于频繁创建动态控件的场景。

关于AddressOf的问题说明 #

你提到的文章中使用AddressOf的方法，在VBA中仅支持标准模块中的函数，无法直接用于UserForm或类模块的事件绑定，这也是该方案对你无效的原因。而类模块的WithEvents机制才是VBA UserForm中处理动态控件事件的原生、可靠方案。

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