CommandButton.MouseDown イベント (Access)

  • [アーティクル]

MouseDown イベントは、マウス ボタンを押したときに発生します。

構文

式。MouseDown (ボタン、 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 単位)。

注釈

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

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

このイベントが発生したときに、マクロまたはイベント プロシージャを実行するには、 OnMouseDown プロパティをマクロ名または "[Event Procedure]/[イベント プロシージャ]" に設定します。

MouseDown イベントを使用して、特定のマウス ボタンが押されるか離されたときの動作を指定します。 Click イベントや DblClick イベントとは異なり、 MouseDown イベントでは、マウスの左ボタン、中央ボタン、および右ボタンを区別することができます。 Shift キー、Ctrl キー、Alt キーを使用するマウス キーボードの組み合わせのコードを記述することもできます。

フォームに対する MouseDown イベントが発生するのは、フォームの空白領域、またはレコード セレクターでマウス ボタンをクリックしたときです。 フォーム セクションに対する 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 のサポートおよびフィードバックを参照してください。