Label.MouseMove 事件 (Access)

用户移动鼠标时发生 MouseMove 事件。

语法

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

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

参数

名称	必需/可选	数据类型	说明
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 为单位）。

备注

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

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

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

MouseMove 事件不断以生成鼠标指针移动对象上。 除非其他对象生成鼠标事件，对象就能识别 MouseMove 事件时鼠标指针放在其边框内。

导致发生某个窗体的 MouseMove 事件，请在窗体空白区域、 记录选择器或滚动条上移动鼠标指针。 若要使窗体节发生的 MouseMove 事件，请在窗体节的空白区域上移动鼠标指针。

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

要运行宏或事件过程中按下和释放鼠标按钮时的响应，请使用 MouseDown 和 MouseUp 事件。

示例

以下示例确定鼠标的位置以及是否按下鼠标左键和/或 Shift 键。 移动鼠标时，鼠标指针位置的 x 和 y 坐标会显示在标签控件中。

Private Sub Detail_MouseMove(Button As Integer, _ 
     Shift As Integer, X As Single, Y As Single) 
    Dim intShiftDown As Integer, intLeftButton As Integer 
 
    Me!Coordinates.Caption = X & ", " & Y 
    ' Use bit masks to determine state of 
    ' SHIFT key and left button. 
    intShiftDown = Shift And acShiftMask 
    intLeftButton = Button And acLeftButton 
    ' Check that SHIFT key and left button  
    ' are both pressed. 
    If intShiftDown And intLeftButton > 0 Then 
        MsgBox "Shift key and left mouse button were pressed." 
    End If 
End Sub

支持和反馈

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