VBA - 交换鼠标左右键

API函数SwapMouseButton可以很轻松地实现鼠标左右键的交换，请看下例：
>>步骤1——新建工程，然后添加一个CommandButton按钮。
>>步骤2——添加如下代码:

Option Explicit
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Const SMB_SUCCESS = &H1
Private Const SMB_FAILED = &H0

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "交换" Then
        CommandButton1.Caption = "恢复"
        SwapMouseButton SMB_SUCCESS
    Else
        CommandButton1.Caption = "交换"
        SwapMouseButton SMB_FAILED
    End If
End Sub

Private Sub Form_Load()
    CommandButton1.Caption = "交换"
End Sub

'/＊退出窗体时恢复鼠标左右键＊/
Private Sub UserForm_Unload(Cancel As Integer)
    SwapMouseButton SMB_FAILED
End Sub

 

>>步骤3——编译运行,点击Command1,则交换鼠标左右键；再次点击（右击）Command1，则还原鼠标左右键。