vb里水平滚动条的问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 15:11:06
用 timer事件控制水平滚动条自动开始，一秒走一点，滚动条从左边到右边，到最右边后再返回到左边，怎么做？
用变量控制的话，一个真事件一个假事件可能好解决点，但是还是没头绪。。。 触发真事件，到右边，触发假事件，到左边，触发真事件，到右边。反复
我都玩了一下午了，还没玩出来呢。。。

很有趣的问题，做个记号，去试一下。

搞定

Private Sub Form_Load()
Timer1.Interval = 1000
HScroll1.Max = 10
HScroll1.Min = 0
End Sub

Private Sub Timer1_Timer()
Static leftorright As Boolean
If leftorright = True Then

HScroll1.Value = HScroll1.Value + 1
If HScroll1.Value = 10 Then
leftorright = False
End If

Else
HScroll1.Value = HScroll1.Value - 1

If HScroll1.Value = 0 Then
leftorright = True
End If
End If

End Sub