Question

VB slider 的问题,在线等啊

谁能告诉我,slider中,我想当我点击slider中一个位置的时候,我想让slider的那个指针就出现 在那个位置,然后读取Slider.value 值.谁能告诉我啊
就象"媒体播放器"进度条那样的,一点击进度条的位置,那个指针就出现在那里.在线等

Answer 1

窗体上拖一个Slider控件名为Slider
窗体里代码如下：
Private Sub Form_Load()
Slider.Max = 100
Slider.Min = 0
End Sub

Private Sub Slider_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Slider.Value = (x - 120) / ((Slider.Width - 270) / Slider.Max)
MsgBox Slider.Value
End Sub