マウスボタンの左右機能入替          <TOP>

マウスボタン左右の機能を入れ替えます。

SwapMouseButton マウスの左と右の機能を入れ替える

　

左図：通常のボタン機能    中図：機能を入れ替えた状態（これ以降は当然右ボタンが機能しています）    右図：機能を元の戻す（戻す前は右ボタンでクリック）

同じアプリケーションを左利きの人と使用する場合は便利ですが終了時、機能を元に戻すことを忘れてはなりません！

  

SwapMouseButton(1)    機能を入れ替える

SwapMouseButton(0)    元に戻す

　

'================================================================
'= マウスボタンの左右機能入替
'=    (SwapMouseButton.bas)
'================================================================
#include "Windows.bi"

' マウスの左と右の機能を入れ替える
Declare Function Api_SwapMouseButton& Lib "user32" Alias "SwapMouseButton" (ByVal bSwap&)

Var Shared Text2 As Object
Text2.Attach GetDlgItem("Text2")

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainFOrm_Start()

    Text2.SetWindowText "現在機能：通常"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()

    Text2.SetWindowText "現在機能：通常"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var Ret As Long

    Ret = Api_SwapMouseButton(1)
    Text2.SetWindowText "現在機能：逆"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button3_on edecl ()
Sub Button3_on()
    Var Ret As Long

    Ret = Api_SwapMouseButton(0)
    Text2.SetWindowText "現在機能：通常"
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End