Hallo Siggi,
bei der WM_MOUSEWHEEL-Message liefert lParam die Radbewegungen.
Über Debug.print kann man sich die mal ausgegeben lassen und entsprechende Schlüsse ziehen, ob sie wirklich größer oder kleiner 0 sind.
Allerdings scheint mir, wie im u.a. Code gezeigt, die doppelte KEY_UP-Message der Grund für das ständige Hochscrollen zu sein.
Code:
01
02
03
04
05
06
07
08
09
10
11 |
|
If wParam = WM_MOUSEWHEEL Then
MouseProc = True
Debug.Print lParam
If lParam.hwnd > 0 Then
PostMessage mListBoxHwnd, WM_KEYDOWN, VK_UP, 0
Else
PostMessage mListBoxHwnd, WM_KEYDOWN, VK_DOWN, 0
End If
Rem PostMessage mListBoxHwnd, WM_KEYUP, VK_UP, 0 ' muss weg
Exit Function
End If
|
_________
viele Grüße
Karl-Heinz
|