My.Computer.Mouse.WheelExists, propriété
Mise à jour : novembre 2007
Obtient Boolean qui indique si la souris possède une roulette de défilement.
' Usage
Dim value As Boolean = My.Computer.Mouse.WheelExists
' Declaration
Public ReadOnly Property WheelExists As Boolean
Valeur de retour
Boolean qui a la valeur True si la souris possède une roulette de défilement ; sinon False.
Exceptions
La condition ci-dessous peut générer une exception :
- Aucune souris n'est installée sur l'ordinateur (InvalidOperationException).
Notes
La propriété My.Computer.Mouse.WheelExists fournit des fonctionnalités semblables à la propriété MouseWheelPresent.
Vous devez vérifier la valeur de la propriété My.Computer.Mouse.WheelExists vant d'essayer d'accéder à la propriété My.Computer.Mouse.WheelScrollLines, qui lève une exception si la souris ne possède pas de roulette de défilement.
La propriété My.Computer.Mouse.WheelExists fournit des informations sur l'ordinateur qui exécute le code.
Exemple
Cet exemple utilise la propriété My.Computer.Mouse.WheelExists pour déterminer si la souris a une roulette de défilement et la longueur de défilement lorsque vous faites pivoter la roulette.
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
Configuration requise
Espace de noms :Microsoft.VisualBasic.Devices
Classe :Mouse
Assembly : bibliothèque runtime Visual Basic (dans Microsoft.VisualBasic.dll)
Disponibilité par type de projet
Type de projet |
Disponible |
---|---|
Application Windows |
Oui |
Bibliothèque de classes |
Oui |
Application console |
Oui |
Bibliothèque de contrôles Windows |
Oui |
Bibliothèque de contrôles Web |
Non |
Service Windows |
Oui |
Site Web |
Non |
Autorisations
Aucune autorisation n'est requise.