Question

VB滚动条(ScrollBar)怎么控制动画的速度

怎么用VB的滚动条控件控制动画（例如一个动画程序中的小飞机）的速度？

Answer 1

举个例子 数值自己改改
（仔细分析我下面给的这个例子 不难的
之所以用1000 - HScroll1.Value是因为 符合正常思维习惯
当滚动条在最左端时速度应该最小 即间隔时间最大）

一个按钮，一个滚动条，一个时间控件

Private Sub Command1_Click()
Timer1.Enabled = False'停止图片移动
End Sub

Private Sub Form_Load()
HScroll1.Min = 0'（HScroll1.Min 、HScroll1.Max 这两个属性决定了HScroll1.Value的范围）
HScroll1.Max = 999
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = 1000 - HScroll1.Value'（这样的话Timer1.Interval的变化是1000-1 即1秒移动一次-1/1000秒移动一次）

End Sub

Private Sub Timer1_Timer()
Image1.Move Image1.Left + 100'图片每次向右移动100个单位
End Sub

Answer 2

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