Question

vb6.0如何让slider从右到左增大

在VB6.0中，SLIDER控件的滑块在最左端时数值最小，向右滑动时数值增大，我现在要让滑块在最右端时数值最小，向左滑动时数值增大，求高手相助，不胜感激！

Answer 1

自右向左移动，Slider控件可设置最大值为100，最小值为0，添加时间控件可以从右到左移动，但不是增大，是移动。

Private Sub Form_Load()
Slider1.Value = 100  '设置初始在最右边
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Slider1.Value = 0 Then Slider1.Value = 100
Slider1.Value = Slider1.Value - 5   '每一秒向左移动5格，其他你自己可以设置
End Sub

追问

兄弟，我要的是SLIDER滑块在最右边的时候值为0，就是把它水平翻转180度，能做到吗？急用！

追答

不可能，只能模拟从右到左。