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

更新 : 2007 年 11 月

マウス ホイールを 1 ノッチ回転したときのスクロール量を示す数値を取得します。

' Usage
Dim value As Integer = My.Computer.Mouse.WheelScrollLines
' Declaration
Public ReadOnly Property WheelScrollLines As Integer

戻り値

マウス ホイールを 1 ノッチ回転したときのスクロール量を示す Integer です。正の値はその数の行だけスクロールすることを示し、負の値は一度に 1 画面だけスクロールすることを示します。

例外

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

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

• マウスにスクロール ホイールがない場合 (InvalidOperationException)。

解説

このプロパティを使用すると、スクロール バーの付いた複数行のコントロールで、上方向または下方向に何行スクロールするかを判断できます。

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

このプロパティはマウスにスクロール ホイールがない場合に例外をスローするため、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.WheelExists プロパティ

Mouse.WheelScrollLines