ListView

[The Hobo]

How to make a ListView scroll...why doesn't this work?

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 SB_LINEDOWN = 1
Const SB_LINEUP = 0
Const SB_PAGEDOWN = 3
Const WM_VSCROLL = &H2E
 
Private Sub Command1_Click()
  SendMessage ListView1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
End Sub

[gdebacker]

This code works for me...

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
 
Private Sub Form_Click()
'     Send a WM_VSCROLL message 0 is up and 1 is down
'     SendMessage tvwFTPDir.hWnd, 277&, 0&, vbNull
 
      SendMessage ListView1.hWnd, 277&, 1&, vbNull
 
 
End Sub
Private Sub Form_Load()
    Dim k As Integer
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "test"
    For k = 1 To 20
        ListView1.ListItems.Add , , Str$(k)
    Next
End Sub

Greg

[The Hobo]

Thanks alot