做了一个交换鼠标左右手习惯的示例。
附 件:
点击下载此附件
主要代码:
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Sub cmb改变_Click()
If Me.cmb改变.Caption = "左手习惯" Then
SwapMouseButton (True)
Me.cmb改变.Caption = "右手习惯"
Else
SwapMouseButton (False)
Me.cmb改变.Caption = "左手习惯"
End If
End Sub
图 示: