MS Access含600+控件的窗体，如何点击标签触发MouseDown事件

方法一：类模块批量绑定控件事件（推荐） #

这个方法可以一次性给所有标签、文本框、按钮绑定MouseDown事件，无需逐个设置：

1. 创建事件处理类模块
   新建一个类模块，命名为clsControlEvents，粘贴以下代码：

   ' 声明要处理的控件类型
   Public WithEvents ctrlLabel As Access.Label
   Public WithEvents ctrlTextBox As Access.TextBox
   Public WithEvents ctrlButton As Access.CommandButton
   
   ' 标签的MouseDown事件，直接调用窗体的通用例程
   Private Sub ctrlLabel_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
       ' 替换成你的主窗体实际名称
       Forms("主窗体名称").Form_MouseDown Button, Shift, X, Y
   End Sub
   
   ' 文本框的MouseDown事件（按需保留）
   Private Sub ctrlTextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
       Forms("主窗体名称").Form_MouseDown Button, Shift, X, Y
   End Sub
   
   ' 按钮的MouseDown事件（按需保留）
   Private Sub ctrlButton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
       Forms("主窗体名称").Form_MouseDown Button, Shift, X, Y
   End Sub
   

2. 在窗体模块中批量绑定控件
   打开主窗体的代码模块，在顶部声明全局集合变量（用于保存类实例，防止被自动销毁），然后在Form_Load事件中绑定所有子窗体控件：

   ' 全局变量，必须放在模块顶部
   Dim colControlEvents As Collection
   
   Private Sub Form_Load()
       Dim ctl As Control
       Dim objEvent As clsControlEvents
   
       Set colControlEvents = New Collection
   
       ' 遍历子窗体细节节的所有控件
       For Each ctl In Me.子窗体控件名称.Form.Detail.Controls
           Set objEvent = New clsControlEvents
           ' 根据控件类型绑定对应的事件
           Select Case TypeName(ctl)
               Case "Label"
                   Set objEvent.ctrlLabel = ctl
               Case "TextBox"
                   Set objEvent.ctrlTextBox = ctl
               Case "CommandButton"
                   Set objEvent.ctrlButton = ctl
           End Select
           colControlEvents.Add objEvent
       Next ctl
   End Sub
   

   注意替换代码中的主窗体名称和子窗体控件名称为你的实际窗体/控件名称。

方法二：修改标签属性（仅适用于少量控件，不推荐600+场景） #

如果只是测试单个标签，可临时调整属性：

• 将标签的SpecialEffect设为平面
• 勾选TabStop属性为是
  此时点击标签会触发窗体的MouseDown事件，但600+控件逐个修改效率极低，不用于批量场景。

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