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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
























