Partager via


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 :

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.

Voir aussi

Référence

My.Computer.Mouse, objet

My.Computer.Mouse.WheelScrollLines, propriété

Mouse.WheelExists