Listview怎么设置让滚动条自动向下滚~~

Question

RT~~还有如何设置list>一定数目clear一下~~

Answer 1

sorry,我是新手，不知道结贴的重要性，我貌似刚才已经把没结的都结了~~

Answer 2

Dim iPrivate Sub Form_Load()
Dim itmx As ListItem
Timer1.Interval = 1000
ListView1.ColumnHeaders.Add , , "Data"
ListView1.View = lvwReport
For i = 1 To 100
Set itmx = ListView1.ListItems.Add(, , i)
Next
i = 1
End Sub
Private Sub Timer1_Timer()
ListView1.ListItems(i).Selected = True
ListView1.ListItems(i).EnsureVisible
i = i + 1
End Sub

Answer 3

为了防止越界Timer事件第一句加If i > ListView1.ListItems.Count Then Timer1.Enabled = False: Exit Sub至于
RT~~还有如何设置list>一定数目clear一下~~
If i > ListView1.ListItems.Count>一定数目 ListView1.ListItems.Clear