13问答网 > VB中滚动框的滚动条从左到右移动，移动到最右端，移动回到最左端的代码

VB中滚动框的滚动条从左到右移动，移动到最右端，移动回到最左端的代码

2025-03-06 13:35:58

推荐回答（1个）

回答1：

'画一个 timer控件 一个滚动条
Dim check As Boolean
Private Sub Form_Load()
HScroll1.Max = 100
HScroll1.Value = 0
Timer1.Interval = 100
Timer1.Enabled = True
check = True
End Sub
Private Sub Timer1_Timer()
If check = True Then
HScroll1.Value = HScroll1.Value + 1
If HScroll1.Value = HScroll1.Max Then check = False
Else
HScroll1.Value = HScroll1.Value - 1
If HScroll1.Value = 0 Then check = True
End If
End Sub