Access (的 Form.MouseMove 事件)
MouseMove 事件發生於使用者移動滑鼠時發生。
運算式。MouseMove (Button、 Shift、 X、 Y)
expression 代表 Form 物件的變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Button | 必要 | Integer | 在事件觸發時按下或放開的按鈕。 如果您需要測試 Button 引數,可以使用下列其中一個內部常數作為位元遮罩:
|
Shift | 必要 | 整數 | 按下或放開 Button 引數所指定的按鈕時, Shift 、Ctrl 和 ALT 鍵的狀態。 如果您需要測試 Shift 引數,您可以使用下列其中一個內部常數作為位元遮罩:
|
X | 必要 | Single | 滑鼠指標目前位置的 x 座標,以 twip 為單位。 |
Y | 必要 | Single | 滑鼠指標目前位置的 y 座標,以 twip 為單位。 |
MouseMove事件僅適用于表單、表單區段和表單上的控制項,不適用於報表上的控制項。
此事件不適用於附加到另一個控制項的標籤,例如文字方塊的標籤。 它只適用於「獨立式」標籤。 在附加標籤上按下及放開滑鼠按鈕的效果,與在關聯控制項上按下及放開滑鼠按鈕的效果相同。 此時所發生的事件為控制項的一般事件,而非附加標籤的個別事件。
發生這些事件時執行巨集或事件程序,將 OnMouseMove 屬性設定為巨集名稱或 [事件程序]。
MouseMove 事件產生持續為滑鼠指標移 over 物件。 除非另一個物件就會產生滑鼠事件,物件會辨識每當滑鼠指標位於其框線內 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 支援與意見反應。