Access VBA教程:MouseDown事件

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

说明

若要在该事件发生时运行宏或事件过程,请将OnMouseDown属性设为宏的名称或 [事件过程]。

可以使用 MouseDown事件来指定当按下或释放特定的鼠标按钮时将发生的操作。与ClickDblClick事件的不同之处在于:MouseDown事件使用户能够区分左、中、右的鼠标按钮。也可以为使用 Shift、Ctrl 和 Alt 的鼠标键盘组合键编写代码。

若要使窗体的 MouseDown事件发生,只需在窗体的空白区域或记录选定器中按下鼠标按钮即可。要使窗体节的 MouseDown事件发生,只需在窗体节的空白区域中按下鼠标按钮即可。

下列内容适用于 MouseDown事件:

若要响应由鼠标移动引起的事件,请使用MouseMove事件。

VBA示例

下面的示例显示了如何找出引发 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

上页:Access VBA教程:LostFocus事件 下页:Access VBA教程:作为位掩码的固有常量

Access VBA教程:MouseDown事件

Access VBA教程:作为位掩码的固有常量 Access VBA教程:MouseMove事件
Access VBA教程:MouseUp事件 Access VBA教程:MouseWheel事件
Access VBA教程:NoData事件 Access VBA教程:NotInList事件
Access VBA教程:OnConnect事件 Access VBA教程:OnDisconnect事件
Access VBA教程:Open事件 Access VBA教程:Page事件
Access VBA教程:PivotTableChange事件 Access VBA教程:Print事件
Access VBA教程:Progress事件 (Snapshot Viewer) Access VBA教程:Query事件
Access VBA教程:ReadyStateChange事件 (Snapshot Viewer) Access VBA教程:RecordExit事件
Access VBA教程:Resize事件 Access VBA教程:Retreat事件
Access VBA教程:RollbackTransaction事件 Access VBA教程:SelectionChange事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号