Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Sub cSwapMouseButton()
Dim CurrStat&, Tmp&
CurrStat = SwapMouseButton(Tmp)
'меняем местами левую и правую кнопки
If CurrStat = 0 Then
SwapMouseButton (1)
'возвращаемся к исходному положению
Else: SwapMouseButton (0)
End If
MsgBox "Вы поменяли местами левую и правую кнопки мыши!", _ vbOKOnly + vbInformation, "Функции API"
End Sub
Private Sub Command1_Click()
cSwapMouseButton
End Sub |
|