Mouse.WheelExists 属性

public:
 property bool WheelExists { bool get(); };

public bool WheelExists { get; }

member this.WheelExists : bool

Public ReadOnly Property WheelExists As Boolean

属性值

如果鼠标具有滚轮，则返回值为 Boolean 值 True；否则返回 False。

例外

示例

此示例使用 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

注解

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

在尝试访问 WheelScrollLines 属性之前，应检查 属性的值My.Computer.Mouse.WheelExists，如果鼠标没有滚轮，则会引发异常。

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

可用性（按项目类型）

适用于

另请参阅

• WheelScrollLines
• 对象 (Visual Basic)