18 Ноябрь 2008

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

Мышь |  Таги: , ,

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

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

Запись опубликована on 18.11.2008 at 16:35 и размещена в рубрике: Мышь. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.