My.Computer.Mouse 属性

项目
08/18/2008

更新：2007 年 11 月

获取一个对象，该对象提供一些属性，用于获取有关在本地计算机上安装的鼠标的格式和配置信息。

' Usage
Dim value As Microsoft.VisualBasic.Devices.Mouse = My.Computer.Mouse
' Declaration
Public ReadOnly Property Mouse As Microsoft.VisualBasic.Devices.Mouse

返回值

此属性返回计算机的 My.Computer.Mouse 对象。

备注

此属性提供对 My.Computer.Mouse 对象的便捷访问。有关更多信息，请参见 My.Computer.Mouse 对象。

此属性仅对非服务器应用程序可用。

示例

此示例使用 My.Computer.Mouse.WheelExists 和 My.Computer.Mouse.WheelScrollLines 属性确定鼠标是否具有滚轮以及滚轮在旋转时的滚动量。

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