Wheel

Does anybody know how to detect when a ListView or TreeView is scroll with the mouse's wheel?

I need to know this because, apparently, when you scroll it with this wheel the ZOrder property is set to 0, and all the form messes up (because this control should not be the topest one.

Any idea how to detect this action to re-order the Zorder of the controls?

bump

You need to subclass the listview:
From Megatron

Code:

---

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const GWL_WNDPROC = (-4)
Const WM_MOUSEWHEEL = &H20A

Global WndProcOld As Long

Private Function HiWord(ByVal LongVal As Long) As Integer
    If LongVal = 0 Then
        HiWord = 0
        Exit Function
    End If
    HiWord = LongVal \ &H10000 And &HFFFF&
End Function

Public Function WindProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    On Error Resume Next
    If wMsg = WM_MOUSEWHEEL Then
          Msgbox("MouseWheel")
    End If
 
    WindProc = CallWindowProc(WndProcOld&, hwnd&, wMsg&, wParam&, lParam&)
   
End Function

Sub SubClassWnd(hwnd As Long)
    WndProcOld& = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindProc)
End Sub

Sub UnSubclassWnd(hwnd As Long)
    SetWindowLong hwnd, GWL_WNDPROC, WndProcOld&
    WndProcOld& = 0
End Sub

---

Then in your form:

Code:

---

Private Sub Form_Load()
    SubClassWnd Listview1.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
    UnSubclassWnd Listview1.hwnd
End Sub

---

Hope this helps,

Sorry... didn't work I never got the MessageBox

try subclassing the form instead (me.hwnd instead of listview.hwnd)

No luck either.

It worked fine for me, here is my project:

i donloaded the following from a tutorial on the internet somewhere - not sure where. It may help you.

Quote:

---

Originally posted by Negative0
It worked fine for me, here is my project:

---

Gotta be a problem with my mousewheel... 'cos doesn't work.

Do you know any way to get to know which message my mousewheel is throwing?

If its still not working try and use the scroll message:

VB Code:

Const WM_VSCROLL = &H115

As for the direction I am not 100% sure on that one, but you can look at the wParam that is sent it, but you have to look up what the bits mean.

Hope this helps,

That did work!! Thanks!

I don't care about the direction, I will "stop the message" (wMsg = 0) and Correct the zorder of the controls.