Question

vb6.0进度条怎么使用啊

我现在要用到VB6里的进度条，但之前从没用过，有哪位能提供一下示例代码，另外我想实现当进度条进行到不同百分比时，在进度条上方显示不同的文字提示，这个怎么做呢？谁能帮我写个示例我看看不，有现成的程序实例那更好了，我只要VB6的，不要其他的

Answer 1

假如那个进度条名字为：ppp

那么要让进度条的进度在50% 设置
ppp.max=100,ppp.min=0 (进度条最大值100 最小值0 )
ppp.value = 50 （进度条的当前值为50%）
这样就让进度条的进度在50%了 当然Max,Min值可以在属性里面直接初始设置 就不用在程序运行过程中用语句设置了

比如我要上进度条每100毫秒加1的值 那么搞一个 Timer出来 ，让Timer每100毫秒运行一次
在timer中加上如下代码：
ppp.value=ppp.value+1 '加上1
if ppp.value = ppp.max then '当进度值为最大值时
end '终止运行程序
end if

上面都是我自己辛辛苦苦打出来的啊 希望对你有帮助