Gruppe
Dialog
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?
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