Proprietà My.Computer.Mouse.WheelExists
Aggiornamento: novembre 2007
Ottiene un Boolean che indica se nel mouse è presente una rotella di scorrimento.
' Usage
Dim value As Boolean = My.Computer.Mouse.WheelExists
' Declaration
Public ReadOnly Property WheelExists As Boolean
Valore restituito
Un valore booleano True indica che nel mouse è presente una rotella di scorrimento, in caso contrario il valore sarà False.
Eccezioni
La seguente condizione può generare un'eccezione.
- Nel computer non è presente un mouse installato (InvalidOperationException).
Note
La proprietà My.Computer.Mouse.WheelExists fornisce funzionalità simili alla proprietà MouseWheelPresent.
È necessario verificare il valore della proprietà My.Computer.Mouse.WheelExists prima di tentare di accedere a Proprietà My.Computer.Mouse.WheelScrollLines che genera un'eccezione se nel mouse non è presente una rotella di scorrimento.
La proprietà My.Computer.Mouse.WheelExists fornisce informazioni sul computer che esegue il codice.
Esempio
Nell'esempio viene utilizzata la proprietà My.Computer.Mouse.WheelExists per determinare se nel mouse è presente una rotella di scorrimento e l'intervallo di scorrimento quando si ruota la rotella 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
Requisiti
Spazio dei nomi:Microsoft.VisualBasic.Devices
Classe:Mouse
Assembly: libreria di runtime di Visual Basic (in Microsoft.VisualBasic.dll)
Disponibilità in base al tipo di progetto
Tipo di progetto |
Disponibile |
---|---|
Applicazione Windows |
Sì |
Libreria di classi |
Sì |
Applicazione di console |
Sì |
Libreria di controlli Windows |
Sì |
Libreria di controllo Web |
No |
Servizio Windows |
Sì |
Sito Web |
No |
Autorizzazioni
Non sono richieste autorizzazioni.