My.Computer.Mouse.WheelScrollLines (Propiedad)

Actualización: noviembre 2007

Obtiene un número que indica la magnitud del desplazamiento cuando se gira un punto la rueda del mouse.

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

Valor devuelto

Valor Integer que indica la magnitud del desplazamiento cuando se gira un punto la rueda del mouse. Un valor positivo indica un desplazamiento de ese número de líneas, mientras que un valor negativo indica un desplazamiento pantalla a pantalla.

Excepciones

Las circunstancias siguientes pueden provocar una excepción:

• El equipo no tiene instalado un mouse (InvalidOperationException).

• El mouse no tiene rueda de desplazamiento (InvalidOperationException).

Comentarios

Puede utilizar esta propiedad para determinar el número de líneas de desplazamiento ascendente o descendente en un control de varias líneas que tenga una barra de desplazamiento.

La propiedad My.Computer.Mouse.WheelScrollLines ofrece una funcionalidad similar a la de la propiedad MouseWheelScrollLines.

Puesto que esta propiedad produce una excepción si el mouse no tiene rueda de desplazamiento, debe asegurarse de que el mouse tiene rueda de desplazamiento comprobando la propiedad My.Computer.Mouse.WheelExists.

Esta propiedad proporciona información acerca del equipo en el que se ejecuta el código.

Ejemplo

Este ejemplo determina si el mouse tiene rueda de desplazamiento y utiliza la propiedad My.Computer.Mouse.WheelExists para determinar la magnitud del desplazamiento cuando se gira la rueda del mouse.

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

Requisitos

Espacio de nombres:Microsoft.VisualBasic.Devices

Clase:Mouse

Ensamblado: biblioteca en tiempo de ejecución de Visual Basic (en Microsoft.VisualBasic.dll)

Disponibilidad por tipo de proyecto

Permisos

No se requiere ningún permiso.

Vea también

Referencia

My.Computer.Mouse (Objeto)

My.Computer.Mouse.WheelExists (Propiedad)

Mouse.WheelScrollLines