閱讀英文

共用方式為


Access (的 Form.MouseMove 事件)

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

語法

運算式MouseMove (ButtonShiftXY)

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 事件。

若要執行回應按下及放開滑鼠按鈕的巨集或事件程序,您可以使用 MouseDownMouseUp 事件。

範例

下列範例會判斷滑鼠的位置,以及是否按下滑鼠左鍵和/或 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 支援與意見反應