Как узнать количество кнопок мыши?

Страница 1 из 1 1
Модератор форума: server2009, Сергей

Дата: Понедельник, 31.08.2009, 13:00 | Сообщение # 1

Лейтенант

Группа: Модераторы

Сообщений: 43

Репутация: 1

Статус: Offline

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CMOUSEBUTTONS = 43

Private Sub Form_Load()
Dim RetVal&
RetVal& = GetSystemMetrics(SM_CMOUSEBUTTONS)
MsgBox "Количество кнопок мыши: " & RetVal&
End Sub