Thema: Mit der Maus scrollen

Home

Durch ListBox wird anhand Mausbewegungen gescrollt.

Prozedur: lstMouse_MouseMove
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Mit der Maus scrollen
Ablaufbeschreibung:
- Variablendeklaration
- Wenn die Ganzzahl der vertikalen Position des Mauszeigers geteilt durch vier kleiner als die Anzahl der ListBox-Einträge ist...
- Den ListIndex gemäß der vertikalen Position des Mauszeigers geteilt durch vier auswählen

Code:


Private Sub lstMouse_MouseMove( _
    ByVal Button As Integer, _
    ByVal Shift As Integer, _
    ByVal X As Single, _
    ByVal Y As Single)
    If Int(Y / 4) < lstMouse.ListCount Then
        lstMouse.ListIndex = Int(Y / 4)
    End If
End Sub