9.マウスボタンの機能を逆にする



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

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


< 説明 >
API関数のSwapMouseButtonを使用します。

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


< SAMPLE >

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





API 技術関連のページへ戻る

ホーム PV ランキング