通过

Image.MouseDown 事件 (Access)

  • 项目

用户按下鼠标按钮时发生 MouseDown 事件。

语法

表达式。MouseDown (按钮、 Shift、 X、 Y)

表达 一个代表 Image 对象的变量。

参数

名称 必需/可选 数据类型 说明
Button 必需 Integer 按下以触发该事件的鼠标键。 如果需要测试 Button 参数，可以使用以下内部常量之一作为位掩码：

  • acLeftButton 鼠标左键的位掩码。

  • acRightButton 鼠标右按钮的位掩码。

  • acMiddleButton 鼠标中键的位掩码。
Shift 必需 Integer 按下或释放 由 Button 参数指定的按钮时 Shift、Ctrl 和 Alt 键的状态。 如果需要测试 Shift 参数，可以使用以下内部常量之一作为位掩码：

  • acShiftMask Shift 键的位掩码。

  • acCtrlMask Ctrl 键的位掩码。

  • acAltMask Alt 键的位掩码。
X 必需 Single 鼠标指针当前位置的 x 坐标（以 twips 为单位）。
Y 必需 Single 鼠标指针当前位置的 y 坐标（以 twips 为单位）。

备注

MouseDown 事件仅适用于窗体、窗体节和窗体上的控件，而不适用于报表上的控件。

该事件不适用于附到其他控件上的标签，例如文本框的标签。 它只适用于“独立”的标签。 在附属标签中按下和释放鼠标键与在标签所附属的控件中按下和释放按钮有相同的效果。 这种情况下，将只发生控件的正常事件，而不会发生附属标签的独立事件。

若要在这些事件发生时运行宏或事件过程，请设置 OnMouseDown 属性为宏的名称或 [事件过程]。

使用 MouseDown 事件指定按下或释放特定鼠标按钮时发生的情况。 与 单击 和 DblClick 事件，不同 MouseDown 事件可以区分为左、 右和中间的鼠标按钮。 还可以为使用 Shift、Ctrl 和 Alt 键的鼠标键盘组合编写代码。

导致发生某个窗体的 MouseDown 事件，按窗体上的空白区域或记录选择器中的鼠标按钮。 若要使窗体节发生的 MouseDown 事件，请按鼠标按钮在窗体节的空白区域中。

以下情况适用于 MouseDown 事件:

  • 如果指针在窗体或控件上时按下鼠标键，该对象将接收所有鼠标事件，直到最后一个 MouseUp 事件。

  • 如果鼠标按钮被连续按下，那个接收第一次按下后的鼠标事件的对象，将接收所有的鼠标事件，直到释放所有按钮为止。

要响应由移动鼠标事件，请使用 MouseMove 事件。

示例

以下示例演示如何找出哪个鼠标按钮导致了 MouseDown 事件。

要试用该示例，请将以下事件过程添加到窗体中。

Private Sub Form_MouseDown(Button As Integer, _ 
         Shift As Integer, X As Single, _ 
         Y As Single) 
    If Button = acLeftButton Then 
        MsgBox "You pressed the left button." 
    End If 
    If Button = acRightButton Then 
        MsgBox "You pressed the right button." 
    End If 
    If Button = acMiddleButton Then 
        MsgBox "You pressed the middle button." 
    End If 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。