ListView的问题！谢谢解答！

Question

如果ListView在（viwe=lvwreport）有很多项的时候，怎样控制ListView自动滚动，
就象ListBox.TopIndex=5一样的。

Answer 1

试一下不断改变它的SelectedItem来达到滚动的效果

Answer 2

怎样的语法！ SelectItem.Index是只读的

Answer 3

ListView1.ListItems(i).Selected = True

Answer 4

我用过啊！还是不行
LisVw.ListItems(21).Selected = True奇怪啊！她就是不滚动关键SelectItem.Index是只读的，要不然就可以的

Answer 5

你把LisVw的MultSelect设为False试试

Answer 6

那你只好用SendMessage向ListView发KeyDown事件(向下键)下解决这个问题了

Answer 7

我对API不是很熟悉，请给个代码吧，谢谢！

Answer 8

先在窗体上加一个Timer控件
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_KEYUP = &H101
Const WM_KEYDOWN = &H100Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 100
        ListView1.ListItems.Add , , Rnd
    Next
End SubPrivate Sub Timer1_Timer()
    SendMessage ListView1.hwnd, WM_KEYDOWN, &H28, &H0
    SendMessage ListView1.hwnd, WM_KEYUP, &H28, &H0         '这句可以不加
End Sub我试过了，完全没问题。