VB 时间与滚动条的问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 07:51:00
如何用时间来控制滚动条，
比如，每过一秒钟，滚动条就自动走一步。

用一个timer控件，一个scroolbar控件就能实现。
Private Sub Timer1_Timer()
HScroll1.Max = 100
If HScroll1.Value < 100 Then
HScroll1.Value = HScroll1.Value + 1
End If
End Sub
设置滚动条的最大值为100，当小于最大值时，每秒钟滚动条增加1.

Timer控件就可以了