ListView的问题！谢谢解答！

[gang75vb]

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

[VertyNew]

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

[gang75vb]

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

[VertyNew]

ListView1.ListItems(i).Selected = True

[szj820]

楼上的方法不错

[gang75vb]

我用过啊！还是不行
LisVw.ListItems(21).Selected = True

奇怪啊！她就是不滚动

关键SelectItem.Index是只读的，要不然就可以的

[VertyNew]

你把LisVw的MultSelect设为False试试

[gang75vb]

MultSelect是False的

[pigsanddogs]

gz

[VertyNew]

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

[gang75vb]

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

[VertyNew]

先在窗体上加一个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 Long

Const WM_KEYUP = &H101
Const WM_KEYDOWN = &H100

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 100
ListView1.ListItems.Add , , Rnd
Next
End Sub

Private Sub Timer1_Timer()
SendMessage ListView1.hwnd, WM_KEYDOWN, &H28, &H0
SendMessage ListView1.hwnd, WM_KEYUP, &H28, &H0 '这句可以不加
End Sub

我试过了，完全没问题。