Часто задаваемые вопросы и ответы по программированию на VB
Последнее обновление: 28.03.03
Q: Как поменять кнопки мыши?
A (=Alex=):

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_SWAPBUTTON = 23

' Обменять кнопки мыши (Swap=True) или не обменивать (Swap=False)
Private Sub SetSwap(Swap As Boolean)
SwapMouseButton (Swap)
End Sub

' Поменяны ли кнопки мыши местами?
Private Function GetSwap() As Boolean
GetSwap = GetSystemMetrics(SM_SWAPBUTTON)
End Function

Далее можно использовать, где угодно:
SetSwap (True) - Обменять кнопки
SetSwap (False) - Сделать по-нормальному :)
SetSwap (GetSwap) - Изменить состояние на обратное

FAQ составлен по материалам Форума на Исходниках.Ру.
Составитель: Crew
Copyright © 2002 by Sources.ru. All rights reserved.