自定义按钮事件处理类问题：仅捕获最后一个按钮点击事件

这个问题我之前也碰到过！核心原因是你在CButtons类里只声明了一个WithEvents btn变量——循环遍历按钮时，每次赋值都会覆盖之前的绑定，最后只有最后一个按钮的事件能被捕获。要解决这个问题，我们需要给每个按钮单独创建一个带事件绑定的包装类，用集合管理这些包装实例，这样每个按钮的点击事件都能独立触发，同时完全封装在调试类中，新增表单只需两行代码即可集成。

具体实现步骤 #

1. 创建按钮事件包装类 CButtonWrapper #

新建一个类模块，命名为CButtonWrapper，这个类负责单独绑定单个按钮的点击事件：

Option Explicit
' 每个实例绑定一个独立的按钮
Public WithEvents btn As Access.CommandButton
Const MODE_DEBUG As Boolean = True

Private Sub btn_Click()
    If MODE_DEBUG Then Debug.Print btn.Name & "_Click"
End Sub

2. 修改调试类 CButtons #

调整CButtons类，用集合存储CButtonWrapper实例，而不是直接存储按钮：

Option Explicit
' 存储所有按钮包装实例，确保生命周期和类一致
Private AllButtonWrappers As Collection

Public Sub LoadButtons(ByRef TheForm As Access.Form)
    Dim ctl As Control
    Dim btnWrapper As CButtonWrapper
    
    Set AllButtonWrappers = New Collection
    
    For Each ctl In TheForm.Controls
        If ctl.ControlType = acCommandButton Then
            ' 为每个按钮创建一个新的包装实例
            Set btnWrapper = New CButtonWrapper
            Set btnWrapper.btn = ctl
            ' 确保按钮触发事件过程
            ctl.OnClick = "[Event Procedure]"
            ' 将包装实例加入集合，防止被垃圾回收
            AllButtonWrappers.Add btnWrapper
        End If
    Next ctl
End Sub

3. 表单调用代码（无需修改） #

你的表单TestButtons里的代码保持原样即可，完全不需要额外改动：

Option Explicit
Private Buttons As CButtons

Private Sub Form_Load()
    Set Buttons = New CButtons
    Buttons.LoadButtons Me
End Sub

为什么这样有效？ #

• 每个按钮对应一个独立的CButtonWrapper实例，每个实例的WithEvents btn都绑定了唯一的按钮，不会出现覆盖问题。
• AllButtonWrappers作为类级集合变量，会保持对所有包装实例的引用，避免它们被VBA的垃圾回收机制销毁，确保事件绑定始终有效。
• 所有逻辑都封装在类中，新增表单时只需复制Form_Load里的两行代码即可集成调试功能，完全符合你的需求。

扩展建议 #

如果后续需要捕获更多按钮事件（比如MouseDown、MouseUp），只需在CButtonWrapper类中添加对应的事件处理即可，例如：

Private Sub btn_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If MODE_DEBUG Then Debug.Print btn.Name & "_MouseDown"
End Sub

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