Determine the number of mouse buttons

Determine the number of mouse buttons

Sometimes is useful to know how many buttons the user’s mouse has. This value can be obtained by calling GetSystemMetrics. The constant to pass as parameter is SM_ CMOUSEBUTTONS. Here’s an example:

Const SM_CMOUSEBUTTONS = 43Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _    As LongFunction GetNumMouseButtons() As Long    GetNumMouseButtons = GetSystemMetrics(SM_CMOUSEBUTTONS)End FunctionPrivate Command1_Click()    MsgBox "Your mouse has " & GetNumMouseButtons & " buttons."End Sub


Share the Post: