Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Apr 28, 2001

ListViewScroll - Scroll a ListView control horizontally or vertically

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Const LVM_FIRST = &H1000
Const LVM_SCROLL = (LVM_FIRST + 20)

' Scroll the contents of a ListView control horizontally and vertically.
'
' If the ListView control is in List mode, DX is the number of
' columns to scroll. If it is in Report mode, DY is rounded to the
' nearest number of pixels that represent a whole line.

Function ListViewScroll(lvw As ListView, ByVal dx As Long, ByVal dy As Long)
    SendMessage lvw.hwnd, LVM_SCROLL, dx, ByVal dy
End Function

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date