Determine the number of mouse buttons [ All Languages » VB »  Keyboard-Mouse] Total Hit ( 3219) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

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: Click here to copy the following block Const SM_CMOUSEBUTTONS = 43 Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _   As Long Function GetNumMouseButtons() As Long   GetNumMouseButtons = GetSystemMetrics(SM_CMOUSEBUTTONS) End Function Private Command1_Click()   MsgBox "Your mouse has " & GetNumMouseButtons & " buttons." End Sub

Related Article(s)

Correctly set scrollbars' width and height

Display an animated GIF using the WebBrowser control

How did Windows start?

SetMenuBitmap - Add a bitmap to a menu item

GetDoubleClickInfo - Retrieve double-click rectangle and timeout

IsNetworkInstalled - Check whether the network is installed

Working with Multiple Monitors

Providing a proper VB Application Icon, Including Large Icons and 32-Bit Alpha Images

Split menu into multiple columns if dont fit and Auto Mouse move/click event demo

WindowPicker - Pick any window using mouse and highlight window region

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )