Question

VB中怎么设置Slider的值？？

要求只能拖动5格
起始值是5000毫秒 最大值是25000毫秒
拖动到第一格就是5000毫秒 拖动到第二格就是10000毫秒 依次类推
并且我有个timer控件
请问timer控件的interval值怎么能取得Slider拖动的值？？
就是Slider拖动多少毫秒，timer的interval值就是多少毫秒
请问怎么实现？ 谢谢了

Answer 1

Private Sub Form_Load()
Me.Slider1.Min = 1
Me.Slider1.Max = 5
Me.Timer1.Interval = 5000
End Sub

Private Sub Slider1_Scroll()
Me.Timer1.Interval = Me.Slider1.Value * 1000
End Sub

Private Sub Timer1_Timer()
Me.Caption = Timer
End Sub

运行以上代码就明白了！谢谢20分！