Integer
按下以触发该事件的鼠标键。 如果需要测试
Button
参数，可以使用以下内部常量之一作为位掩码：
-
acLeftButton
鼠标左键的位掩码。
-
acRightButton
鼠标右按钮的位掩码。
-
acMiddleButton
鼠标中键的位掩码。
Shift
Integer
按下或释放
由 Button
参数指定的按钮时 Shift、Ctrl 和 Alt 键的状态。 如果需要测试
Shift
参数，可以使用以下内部常量之一作为位掩码：
-
acShiftMask
Shift 键的位掩码。
-
acCtrlMask
Ctrl 键的位掩码。
-
acAltMask
Alt 键的位掩码。
Single
鼠标指针当前位置的
x
坐标（以
twips 为单位
）。
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。
