Click イベントでマウスボタンの左右を判定

戻る

Click イベントでマウスボタンの左右を判定

動作環境 Windows2000 開発環境 Visual Basic 6.0 (+SP5)

説明 MouseDown イベントが、 Click イベントよりも先に発生することを利用し、Click イベントでマウスボタンの左右を判定します。

用意するもの：標準フォーム(Form1)、ピクチャボックスコントロール(Picture1)

'変数の明示的な宣言を強制
Option Explicit

Dim MouseButton As Integer

Private Sub Picture1_Click()

'モジュールレベル変数 MouseButton の値をチェックし、条件分岐処理を行う
If MouseButton = 1 Then
MsgBox "左クリック"
ElseIf MouseButton = 2 Then
MsgBox "右クリック"
End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'引数 Button の値をモジュールレベル変数 MouseButton に格納
'Button の値が 1 の場合：左ボタン
'Button の値が 2 の場合：右ボタン
MouseButton = Button

End Sub

Click イベントでマウスボタンの左右を判定
動作環境	Windows2000	開発環境	Visual Basic 6.0 (+SP5)
説明	MouseDown イベントが、 Click イベントよりも先に発生することを利用し、Click イベントでマウスボタンの左右を判定します。
用意するもの：標準フォーム(Form1)、ピクチャボックスコントロール(Picture1)
'変数の明示的な宣言を強制 Option Explicit Dim MouseButton As Integer Private Sub Picture1_Click() 'モジュールレベル変数 MouseButton の値をチェックし、条件分岐処理を行う If MouseButton = 1 Then MsgBox "左クリック" ElseIf MouseButton = 2 Then MsgBox "右クリック" End If End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '引数 Button の値をモジュールレベル変数 MouseButton に格納 'Button の値が 1 の場合：左ボタン 'Button の値が 2 の場合：右ボタン MouseButton = Button End Sub