Variare il valore dello Slider ruotando la rotellina del mouse
La variazione della proprietà .Value dello Slider determina lo spostamento del medesimo lungo il suo asse. Tale variazione può essere apportata via codice, oppure manualmente agendo con il mouse attraverso due modalità: con la consueta azione del puntatore oppure ruotando la rotellina del mouse.
In questa pagina prenderemo in considerazione quest'ultimo caso. In particolare, per ottenere lo spostamento del cursore virtuale dello Slider mediante la rotazione delle rotellina del mouse, bisognerà posizionarsi ovviamente sull'oggetto Slider interessato e ruotare la rotellina del mouse. A livello di codce si dovrà prendere in considerazione la proprietà .Delta della Classe Mouse.
La proprietà .Delta della Classe Mouse ritorna il valore delta di un evento MouseWheel. In particolare, avremo che un valore positivo indica che la rotellina è stata ruotata in avanti. Viceversa un valore negativo, ritornato, indica che la rotellina del mouse è stata ruotata all'indietro.
Per effettuare la variazione della proprietà .Value dell'oggetto Slider, e quindi del suo cursore virtuale in avanti o dietro, potremo adottare il seguente codice:
Public Sub Slider1_MouseWheel() If Mouse.Delta > 0 Then ' Un valore positivo, restituito dalla proprietà "Mouse.Delta", aumenterà il valore della proprietà "Slider.Value": Slider1.Value += 1 Else ' Un valore negativo, restituito dalla proprietà "Mouse.Delta", diminuirà il valore della proprietà "Slider.Value": Slider1.Value -= 1 Endif End
