戻る

Form_XX イベントを理解するためのサンプル（その２）
名称 Form_XX イベントを理解するためのサンプル（その２）
動作環境 Windows95/98 開発環境 Visual Basic 6.0 (+SP2)
説明 フォーム上でのマウスイベントの発生状況が理解できます。
Form_ClickイベントではButton引数の利用ができませんが、イベントの以下のサンプルではイベントの発生順を利用してForm_Clickイベント内で使用されたボタンを検知しています。
用意するもの：標準フォーム(Form1)、リストボックス(List1)
'使用されたボタン情報を格納する変数。
Dim MouseButton As Integer

Private Sub Form_Click()

'使用されたボタンにより処理を分岐させる。
'リストボックスに情報を追加
Select Case MouseButton
Case vbLeftButton
List1.AddItem "Form_Click イベントが発生しました（左ボタン）"
Case vbRightButton
List1.AddItem "Form_Click イベントが発生しました（右ボタン）"
Case vbMiddleButton
List1.AddItem "Form_Click イベントが発生しました（中央ボタン）"
End Select

End Sub

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

'リストボックスに情報を追加
List1.AddItem "Form_MouseDown イベントが発生しました"

'Button引数の状態を変数MouseButtonに格納
MouseButton = Button

End Sub

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

'リストボックスに情報を追加
List1.AddItem "Form_MouseUP イベントが発生しました"

End Sub