My.Computer.Mouse.WheelExists 属性

更新：2007 年 11 月

获取一个 Boolean，它指示鼠标是否有滚轮。

' Usage
Dim value As Boolean = My.Computer.Mouse.WheelExists
' Declaration
Public ReadOnly Property WheelExists As Boolean

返回值

如果鼠标有滚轮，则布尔值为 True；否则为 False。

异常

下面的情况可能会导致异常：

• 计算机没有安装鼠标 (InvalidOperationException)。

备注

My.Computer.Mouse.WheelExists 属性提供类似于 MouseWheelPresent 属性的功能。

您应该先检查 My.Computer.Mouse.WheelExists 属性的值，然后再试图访问 My.Computer.Mouse.WheelScrollLines 属性（如果鼠标没有滚轮，它会引发异常）。

My.Computer.Mouse.WheelExists 属性提供有关运行代码的计算机的信息。

示例

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

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

要求

命名空间：Microsoft.VisualBasic.Devices

类：Mouse

**程序集：**Visual Basic Runtime Library（位于 Microsoft.VisualBasic.dll 中）

按项目类型列出可用性

权限

不需要任何权限。

请参见

参考

My.Computer.Mouse 对象

My.Computer.Mouse.WheelScrollLines 属性

Mouse.WheelExists