1.变换鼠标左右键 添加 Command1 Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long Private Sub Command1_Click() SwapMouseButton True MsgBox "退出前你现在是左撇子" End Sub Private Sub Form_Unload(Cancel As Integer) SwapMouseButton False MsgBox "鼠...

时间:2024-12-05 22:34栏目:行业资料