Propriedade My.Computer.Mouse.WheelExists

Retorna um Boolean que indica se o mouse possui uma roda de rolagem.

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

Valor de retorno

Valor de propriedade

Um valor booleano com valor True se o mouse tiver uma roda de rolagem; caso contrário, False.

Exceções

A condição a seguir pode causar uma exceção:

• O computador tem nenhum mouse instalado (InvalidOperationException).

Comentários

A propriedade My.Computer.Mouse.WheelExists fornece funcionalidade semelhante à propriedade MouseWheelPresent.

Você deve verificar o valor da propriedade My.Computer.Mouse.WheelExists antes de tentar acessar a Propriedade My.Computer.Mouse.WheelScrollLines, que gera uma exceção se o mouse não tiver uma roda de rolagem.

A propriedade My.Computer.Mouse.WheelExists fornece informações sobre o computador que executa o código.

Exemplo

Este exemplo usa a propriedade My.Computer.Mouse.WheelExists para determinar se o mouse tiver uma roda de rolagem e quanto rolar quando o mecanismo cíclico do mouse for girado.

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

Namespace:Microsoft.VisualBasic.Devices

Classe:Mouse

Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Disponibilidade por Tipo de Projeto

Permissões

Não requer nenhuma permissão.

Consulte também

Referência

Objeto My.Computer.mouse

Propriedade My.Computer.Mouse.WheelScrollLines

Mouse.WheelExists