Gruppe
Dialog
Bereich
ListBox
Thema
Listbox-Eintrag durch Mausbewegung markieren
Problem
Wie kann ich bei XL8 in einer UserForm durch das Bewegen des Mauszeigers die Auswahl in einer ListBox verändern, ohne dass ein Mausklick erfolgt?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
StandardModule: basMain
Sub CallForm()
frmMouseMove.Show
End Sub
ClassModule: frmMouseMove
Private Sub cmdContinue_Click()
Unload Me
End Sub
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