例 次の使用例は、マウスにスクロール ホイールがあるかどうかを判断し、このプロパティを 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("M
![Mouse.WheelScrollLines プロパティ (Microsoft.VisualBasic.Devices)](https://cdn-ak-scissors.b.st-hatena.com/image/square/d6e4cb632c7025e9f5e05fd314fbf6dcd6144e8d/height=288;version=1;width=512/https%3A%2F%2Flearn.microsoft.com%2Fen-us%2Fmedia%2Fopen-graph-image.png)