Access (的 Form.MouseMove 事件)

MouseMove 事件發生於使用者移動滑鼠時發生。

語法

運算式。MouseMove (Button、 Shift、 X、 Y)

expression 代表 Form 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Button	必要	Integer	在事件觸發時按下或放開的按鈕。 如果您需要測試 Button 引數，可以使用下列其中一個內部常數作為位元遮罩： acLeftButton 滑鼠左鍵的位元遮罩。 acrightbutton 右鍵 是右滑鼠按鈕位元遮罩。 acmiddlebutton 鍵 滑鼠中間鍵的位元遮罩。
Shift	必要	整數	按下或放開 Button 引數所指定的按鈕時， Shift 、Ctrl 和 ALT 鍵的狀態。 如果您需要測試 Shift 引數，您可以使用下列其中一個內部常數作為位元遮罩： acShiftMask Shift 鍵的位元遮罩。 acCtrlMask Ctrl 鍵的位元遮罩。 acAltMask ALT 鍵的位元遮罩。
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 支援與意見反應。