９．マウスボタンの機能を逆にする



＜　使用用途　＞
マウスボタンの機能を逆にする

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード　・・・下記のサンプルと同じです。　

＜　説明　＞
ＡＰＩ関数のSwapMouseButtonを使用します。

SwapMouseButton＝＞マウスボタンの機能を逆にする
　　　　　<引数 >
　　　　　　　bSwap ：Trueはボタンの機能を入れ替えます
　　　　　　　　　　　　Falseは本来の機能に戻す
　　　　　＠戻り値＠　　
　　　　　　 　 正常終了
　　　　　　　 　　　Trueのとき0
　　　　　　　　　　 Falseのとき-1

<　ＳＡＭＰＬＥ　＞

Public Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long)As Long

'ボタンの機能をいれかえる
Private Sub Command1_Click()
　Dim Ret As Long
　　　Ret = SwapMouseButton(True)
End Sub

’本来の機能に戻す
Private Sub Command2_Click()
　Dim Ret As Long
　　　Ret = SwapMouseButton(False)
End Sub