| ■89332 / ) |
Re[2]: ホイールクリックした時にアクションする方法 |
□投稿者/ tora (3回)-(2018/11/20(Tue) 15:02:03)
|
ありがとうございます。
あと、TablelayoutpanelやGroupboxを押した時
二度押ししたみたいに二回実行されてしまうのですが、
これを避けるにはどうしたら良いですか?
Private MouseBool As Boolean = False
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If MouseBool = True Then Exit Sub
MouseBool = True
Select Case e.Button
Case Windows.Forms.MouseButtons.Left
MsgBox("左ボタンがクリックされました。")
Case Windows.Forms.MouseButtons.Right
MsgBox("右ボタンがクリックされました。")
Case Windows.Forms.MouseButtons.Middle
MsgBox("マウスホイールがクリックされました。")
Case Windows.Forms.MouseButtons.XButton1
MsgBox("X1ボタンがクリックされました。")
Case Windows.Forms.MouseButtons.XButton2
MsgBox("X2ボタンがクリックされました。")
End Select
MouseBool = False
End Sub
とやってみても、うまくいかないのですが
時間的にもほぼ同時に入力されているのでしょうか・・・。
|
|