通过

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。

异常

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

备注

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 中）

按项目类型列出可用性

项目类型

可用

Windows 应用程序

是

类库

是

控制台应用程序

是

Windows 控件库

是

Web 控件库

否

Windows 服务

是

网站

否

权限

不需要任何权限。

请参见

参考

My.Computer.Mouse 对象

My.Computer.Mouse.WheelScrollLines 属性

Mouse.WheelExists