播放器的进度条如何制作呢？

[stmadman]

想问一下播放器的进度条如何制作？ 我的项目中 引入 windows media player控件 因为特殊需求 WMP的控制台被隐藏掉 所以没有播放进度条，我现在的目的是想做一个播放器的进度条 实现这个用什么控件呢？ 怎么实现 求思路，谢谢。

[贝隆]

[Quote=引用 3 楼 jhone99 的回复:]
progressbar重要属性如下：
min:进度条的起始值。也就是取小值，如1。
max:进度条的终止值。也就是最大值，如100
value:任务进展到哪个数，即进度条的填充值。
visible：决定进度条是否可见。
value使用在任务的变化处，以不断改变其值，这样，就能直观地显示任务进度。
b = Len(Text1.Text) 确定最大值
ProgressBar1.Visible = True
ProgressBar1.Min = 1
ProgressBar1.Max = b
ProgressBar1.Value = 1 初始化
……
For c = 1 To b
d = Mid(Text1.Text, c, 1)
Print #2, Asc(d) Xor x
ProgressBar1.Value = c 跟踪进度
Next c
ProgressBar1.Value = 1
ProgressBar1.Visible = False 任务结束
progressbar控件的align属性：指定进度条在容器中的位置，0为任意，1为顶部，2为底部，3为左部，4为右部。
progressbar控件的orientation属性：进度条以水平放置（0）或垂直放置（1）。
progressbar控件的scrolling属性：填充方式为虚线填充（0）或实线填充（1）。
[/Quote]
顶

[jhone99]

progressbar

工程----部件-----Microsoft Windows Common controls 6.0

[king06]

ProgressBar
看属性就知道这么用了,很简单的
开始 ProgressBar1.value=ProgressBar1.min
中间 可自己多处设置值
……
ProgressBar1.value=50(假如max是100)
……
ProgressBar1.value=60……
……
ProgressBar1.value=75
………………
结束 ProgressBar1.value=ProgressBar1.max

[jhone99]

progressbar重要属性如下：
min:进度条的起始值。也就是取小值，如1。
max:进度条的终止值。也就是最大值，如100
value:任务进展到哪个数，即进度条的填充值。
visible：决定进度条是否可见。
value使用在任务的变化处，以不断改变其值，这样，就能直观地显示任务进度。
b = Len(Text1.Text) 确定最大值
ProgressBar1.Visible = True
ProgressBar1.Min = 1
ProgressBar1.Max = b
ProgressBar1.Value = 1 初始化
……
For c = 1 To b
d = Mid(Text1.Text, c, 1)
Print #2, Asc(d) Xor x
ProgressBar1.Value = c 跟踪进度
Next c
ProgressBar1.Value = 1
ProgressBar1.Visible = False 任务结束
progressbar控件的align属性：指定进度条在容器中的位置，0为任意，1为顶部，2为底部，3为左部，4为右部。
progressbar控件的orientation属性：进度条以水平放置（0）或垂直放置（1）。
progressbar控件的scrolling属性：填充方式为虚线填充（0）或实线填充（1）。

[stmadman]

大家理解错了。我是想做成 进度条上面有个滑块，可以控制视频的播放进度 ，不是单纯的显示进度。

[stmadman]

可以来回拖动

[jhone99]

HScrollBar 工具箱里就有

[jhone99]

Private Sub Form_Load()
    HScroll1.Min = 0
    HScroll1.Max = 100
    
End Sub

Private Sub HScroll1_Change()
    Text1.Text = HScroll1.Value
    
End Sub

[stmadman]

我用的是 VB精简版 在部件里面没有HScroll1这个部件 不知道他用的是哪个 DLL 能否告诉我一下

[Tiger_Zhao]

a)HScroll 为 VB 自带控件，安装完整版
b)用 Microsoft Windows Common Controls 6.0 (SP6) 中的 Slider 控件