My.Computer.Mouse.WheelExists (Propiedad)

Actualización: noviembre 2007

Obtiene un valor Boolean que indica si el mouse tiene una rueda de desplazamiento.

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

Valor devuelto

Un valor booleano True si el mouse tiene rueda de desplazamiento; de lo contrario, devuelve False.

Excepciones

La siguiente condición puede provocar una excepción:

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

Comentarios

La propiedad My.Computer.Mouse.WheelExists ofrece una funcionalidad similar a la de la propiedad MouseWheelPresent.

Debería comprobar el valor de la propiedad My.Computer.Mouse.WheelExists antes de intentar obtener acceso a la My.Computer.Mouse.WheelScrollLines (Propiedad), que produce una excepción si el mouse no tiene rueda de desplazamiento.

La propiedad My.Computer.Mouse.WheelExists proporciona información sobre el equipo donde se ejecuta el código.

Ejemplo

Este ejemplo utiliza la propiedad My.Computer.Mouse.WheelExists para determinar si el mouse tiene rueda de desplazamiento y 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.WheelScrollLines (Propiedad)

Mouse.WheelExists