マウスのホイール/右をクリックした時にイベントを発生させたい

マウスを右クリックしたとき及びホイールを押した時にそれぞれイベント（ここではメッセージボックスとします）させたいのですが、どのように書いたらいいですか？
if （???.click?） then
msgbox
End if
という感じになると思うのですが、clickの部分をどう書いたら良いのかよく分かりません。

VB2005Express Editionを使っています。

No.1 回答者： tsukasa-12r 回答日時： 2007/08/26 05:40

フォーム Form1 上での右クリックは

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
MessageBox.Show("Right Button Clicked", "Test", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
のようにして判定できます。
ホイールについては、マウスドライバによって異なるかもしれませんが、コントロールパネル中の「マウス」の設定によって、ホイールがクリックされたときの動作を左クリックと同じにしたり、右クリックと同じにしたりできますので、通常の方法では判定できないと思います。
コントロールパネル中の「マウス」の設定によって、ホイールクリック時の動作を「中央ボタンクリック」にしておけば、
If e.Button = Windows.Forms.MouseButtons.Middle Then
で判定できますが、ホイールクリックで自動スクロールができなくなります。

この回答へのお礼

ありがとうございます。
フォーム内ではなくOS上全てでやりたいので、残念ながら参考になりませんでした。自己解決いたしましたので締め切らせて頂きます。
ご回答ありがとうございました。

お礼日時：2007/09/01 08:42