Provides properties for getting information about the format and configuration of the mouse installed on the local computer.
Assembly: Microsoft.VisualBasic (in Microsoft.VisualBasic.dll)
Thetype exposes the following members.
|ButtonsSwapped||Gets a Boolean that indicates if the functionality of the left and right mouse buttons has been swapped.|
|WheelExists||Gets a Boolean that indicates if the mouse has a scroll wheel.|
|WheelScrollLines||Gets a number that indicates how much to scroll when the mouse wheel is rotated one notch.|
|Equals(Object)||Determines whether the specified object is equal to the current object. (Inherited from Object.)|
|Finalize||Allows an object to try to free resources and perform other cleanup operations before it is reclaimed by garbage collection. (Inherited from Object.)|
|GetHashCode||Serves as the default hash function. (Inherited from Object.)|
|GetType||Gets the Type of the current instance. (Inherited from Object.)|
|MemberwiseClone||Creates a shallow copy of the current Object. (Inherited from Object.)|
|ToString||Returns a string that represents the current object. (Inherited from Object.)|
The My.Computer.Mouse object provides a way to find information about the computer's mouse: whether the mouse buttons are swapped, and details about the mouse wheel.
Availability by Project Type
Windows Control Library
Web Control Library
The HostProtectionAttribute attribute applied to this type or member has the following Resources property value: Resources. The HostProtectionAttribute does not affect desktop applications (which are typically started by double-clicking an icon, typing a command, or entering a URL in a browser). For more information, see the HostProtectionAttribute class or SQL Server Programming and Host Protection Attributes.
This example uses the My.Computer.Mouse.WheelExists and My.Computer.Mouse.WheelScrollLines properties to determine if the mouse has a scroll wheel and how much to scroll when it rotates.
If My.Computer.Mouse.WheelExists Then Dim lines As Integer = My.Computer.Mouse.WheelScrollLines If lines > 0 Then MsgBox("Application scrolls " & lines & " line(s) for each wheel turn.") Else MsgBox("Application scrolls " & (-lines) & " page(s) for each wheel turn.") End If Else MsgBox("Mouse has no scroll wheel.") End If