My.Computer.Mouse.WheelExists プロパティ

更新 : 2007 年 11 月

マウスにスクロール ホイールが付いているかどうかを示す Boolean を取得します。

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

戻り値

マウスにスクロール ホイールが付いていれば、Boolean の値は True になり、付いていなければ False になります。

例外

例外を引き起こす可能性のある状態を次に示します。

• コンピュータにマウスが接続されていない場合 (InvalidOperationException)。

解説

My.Computer.Mouse.WheelExists プロパティは、MouseWheelPresent プロパティと同様の機能を提供します。

My.Computer.Mouse.WheelScrollLines プロパティは、マウスにスクロール ホイールが付いていない場合に例外をスローするため、このプロパティにアクセスする前に My.Computer.Mouse.WheelExists プロパティの値を調べる必要があります。

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 ランタイム ライブラリ (Microsoft.VisualBasic.dll 内)

使用可能なプロジェクトの種類

アクセス許可

アクセス許可は不要です。

参照

参照

My.Computer.Mouse オブジェクト

My.Computer.Mouse.WheelScrollLines プロパティ

Mouse.WheelExists