Question

利用vb滚动条控制timer控件的速度

作了一个滚动条的程序，但是滚动条没法控制timer控件，请高手指点一下，让图片从左到右滚动，并能随着滚动条调整快慢。 </img>

Answer 1

我觉得大概的思路是获取滚动条的位置，然后改变time控件的Interval 属性的值，这样就能调整快慢了。

Answer 2

小弟学vb不久可能编的不是不好，请多多指点
Dim timestep As Integer
Private Sub Form_Load()
HScroll1.Max = 1000
timestep = HScroll1.Value + 100
Timer1.Interval = timestep

End Sub

Private Sub HScroll1_Change()
timestep = HScroll1.Value + 100
Timer1.Interval = timestep
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 100
End Sub

Answer 3

Private Sub HScroll1_Change()
HScroll1.Max = 500
HScroll1.Min = 0
Timer1.Interval =500- HScroll1.Value
End Sub

Answer 4

用滚动条改变timer控件的Interval变量就好，