Versione attuale delle 16:19, 11 lug 2023

Per sollevare l'Evento rotellina, "_MouseWheel()", del mouse ^{[nota 1]}, quando si agisce appunto sulla rotellina del mouse, è sufficiente utilizzare il seguente codice:

Public Sub Form_MouseWheel()

 Select Case Mouse.Delta
   Case 1
     Print "Ruotata la rotellina del mouse in avanti"
   Case -1
     Print "Ruotata la rotellina del mouse indietro"
 End Select

End

Si terrà conto del valore Delta ^{[nota 2]} dell'evento "_MouseWheel()": un valore positivo ritornato indica che la rotellina è stata ruotata in avanti, mentre un valore negativo restituito indica che la rotellina è stata ruotata indietro.

Note

[1] Vedere anche la pagina Variare il valore dello Slider ruotando la rotellina del mouse relativa alla variazione della Proprietà ".Value" dello Slider mediante l'evento "_MouseWheel()".

[2] La proprietà delta è la direzione che indica lo spostamento della rotellina del mouse verso l'alto (in avanti) o verso il basso (indietro). Se il delta è un numero intero positivo, allora la rotellina del mouse è stata spostata verso l'alto (ruotata in avanti), se negativo è stata spostata verso il basso (ruotata indietro).