Question

VB的listbox如何实现自动滚动？

VB的listbox如何实现自动滚动？
看来我表达得不是很清楚
就是输入数据是listbox

Answer 1

添加一个Timer1控件

Private Sub Timer1_Timer()
If List1.TopIndex < List1.ListCount - 1 Then
List1.TopIndex = List1.TopIndex + 1 '-1
Else
List1.TopIndex = List1.List(0)
End If
End Sub

Answer 2

向下滚动： List1.TopIndex = List1.TopIndex + 1
向上滚动： List1.TopIndex = List1.TopIndex - 1

Answer 3

或者使用API函数来实现。