Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.141.199.243] |
|
Сообщ.
#1
,
|
|
|
Как сделать чтобы программа меняла кнопки мыши местами, к примеру при нажатии на кнопку?
|
Сообщ.
#2
,
|
|
|
Интересно, зачем это нужно? ))
Короче, это делается так: 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) - Изменить состояние |