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
Tipo de Projeto |
Disponível |
|---|---|
Aplicativo do Windows |
Sim |
Biblioteca de Classe |
Sim |
Aplicativo de Console |
Sim |
Biblioteca de Controle do Windows |
Sim |
Biblioteca de Controle da Web |
Não |
Serviço do Windows |
Sim |
Site |
Não |
Permissões
Não requer nenhuma permissão.