Часто задаваемые вопросы и ответы по программированию на 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.