Capture Listview scroll

[dr486]

Hi,

I was wondering if anybody knows how to capture the listview scroll event in Visual Basic

Regards,

dr

 

[JAG14]

Start a new public class.. code here.

Public Class myListView 
Inherits ListView

Private Const SBM_SETSCROLLINFO As Integer = &HE9 
Private Const WM_HSCROLL As Integer = &H115 
Private Const WM_VSCROLL As Integer = &H114 
Public Event Scroll(ByVal sender As Object, ByVal e As EventArgs)

Protected Sub OnScroll()

RaiseEvent Scroll(Me, EventArgs.Empty) 

End Sub

Protected Overrides Sub WndProc(ByRef m As Message)

MyBase.WndProc(m) 
If m.Msg = WM_HSCROLL Or m.Msg = WM_VSCROLL Or m.Msg = SBM_SETSCROLLINFO Then

OnScroll()

End If


End Sub 
End Class

Hope this helps..

[tt]'Very funny, Scotty... Now Beam down my clothes.'[/tt]

 

[strongm]

Won't really work in VB6, JAG ;-)

 

[dr486]

Is it possible to subclass the control and capture LVM_SCROLL???

 

[strongm]

I think you might actually want to be capturing WM_VSCROLL, but that notwithstanding the answer is yes, you can subclass a ListView

 

[dr486]

Cool...thanks strongm (as usual)

 

[JAG14]

My apologies strongm, entirely wrong, need sleep. Taking lessons tomorrow on clicking correct links. ;-)

[tt]'Very funny, Scotty... Now Beam down my clothes.'[/tt]

 

[dr486]

Thanks strongm...WM_VSCROLL worked like a charm

dr