次の方法で共有

CommandButton.MouseMove イベント (Access)

  • [アーティクル]

MouseMove イベントは、マウスを移動したときに発生します。

構文

式。MouseMove (ボタン、 Shift、 X、 Y)

式CommandButton オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Button 必須 整数型 (Integer) イベントを起動する目的で押された、または離されたボタンです。 Button 引数をテストする必要がある場合は、次のいずれかの組み込み定数をビット マスクとして使用できます。

  • acLeftButton マウスの左ボタンのビット マスクです。

  • acRightButton マウスの右ボタンのビット マスクです。

  • acMiddleButton マウスの中央ボタンのビット マスクです。
Shift 必須 Integer 引数 Button で指定されたボタンが押されたか離されたときの Shift キー、Ctrl キー、Alt キーの状態。 Shift 引数をテストする必要がある場合は、次のいずれかの組み込み定数をビット マスクとして使用できます。

  • acShiftMask Shift キーのビット マスク。

  • acCtrlMask Ctrl キーのビット マスク。

  • acAltMask Alt キーのビット マスク。
X 必須 Single マウス ポインターの現在位置の x 座標 (twip 単位)。
Y 必須 Single マウス ポインターの現在の位置の y 座標 (twip 単位)。

注釈

MouseMove イベントは、フォーム、フォーム セクション、およびフォーム上のコントロールにのみ適用され、レポートのコントロールには適用されません。

このイベントは、他のコントロールに付けられたラベル (テキスト ボックスのラベルなど) には適用されません。 このイベントは、"独立した" ラベルにのみ適用されます。 他のコントロールに付けられたラベル内でマウス ボタンを押して離すと、そのラベルに関連付けられたコントロール内でボタンを押して離した場合と同じ効果が得られます。 つまり、そのコントロールの通常のイベントが発生し、付けられたラベルに対して個別にイベントが発生することはありません。

このイベントが発生したときに、マクロまたはイベント プロシージャを実行するには、" OnMouseMove /マウスボタン移動時" プロパティにマクロ名または "Event Procedure/イベント プロシージャ" を設定します。

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 のサポートおよびフィードバックを参照してください。