VB怎么制作进度条？

Posted 2023-04-02

进度条控件的位置：
1.在控件工具箱中右键=>部件。
2.在“部件”窗口中勾选Microsoft
windows
common
controls
5.0或6.0。单击确定。
3.然后控件工具箱中就有进度条了。
改变样式方法：（我暂时只知道这种）
下载一个SkinH，下载的文件夹里面有使用方法哦~（并且会优化所有控件及窗体）
注意事项：
1.使用时避免使用End语句，会出错。（虽说生成EXE文件不会出错，但影响调试）
2.使用时若出现实时错误点击工具栏的停止也会出错……
3.所以最好程序完工后再加上换肤代码=
=
我可能不是你说的“把文件删除了它的进度条又变成普通的那种了”，但是是最贴合的方法了！ 参考技术A 添加部件“microsoft windows common controls 6.0(sp6)”，窗体添加1按钮、1标签控件、1个timer控件、1个进度条控件，代码如下：
private
sub
command1_click()
timer1.enabled
=
true
end
sub
private
sub
form_load()
with
progressbar1
.max
=
60
.min
=
0
.value
=
0
end
with
timer1.interval
=
1000
timer1.enabled
=
false
end
sub
private
sub
timer1_timer()
progressbar1.value
=
progressbar1.value
+
1
if
progressbar1.value
=
100
then
label1.caption
=
"完成"
timer1.enabled
=
false
end
if
end
sub 参考技术B vb
自带进度条：工程、部件、Microsoft
windows
common
controls
6.0或5.0
、ProgressBar。
一般别人用的比较精美的进度条都是有的第三方控件 参考技术C 可能用到的是she皮肤文件
加载文件后
进度条
是美化后的
文件删除后
就变回原样了
例如这样：
使用皮肤前：
删除皮肤后：

vb的进度条怎么用?

我想用进度条,来演示一个倒计时的状态,即
比如还剩5分钟,让进度条来动画演示,剩下时间减少的状态,怎么弄?
那如果我用的是一个变量呢?
我想用一个文本框来接收用户输入的时间,然后演示这段时间我该怎么设置呢?

先谢谢了,我是新手,希望能讲详细点~

你可以这样解决：
1.首先，创建一个Timer控件和一个进度条控件。
2.设置Timer1的InterVal属性值为：1000，
ProgressBar1控件的Max属性为500。
3.在Timer的事件是里写如下代码：
Private Sub Timer1_Timer()
ProgressBar1.Value =ProgressBar1.Value + 1
End Sub

End Sub 参考技术A 讲一个最原始的方法就是用timer,2个label控件来做，
定义一个label的固定长度，borderstyle可以设为1（表示总的进程）,另一个label的初始长度为1（表示进度）,将2个label控件backcolor设为反差较大的颜色，再重叠（后者置前），利用timer控件的interval和enabled属性，增加后者长度直到前者长度就表示进程结束
不过这个有个弊端就是屏幕可能会有一定的闪烁。
如果是变量的话，你就以输入的时间来改变timer事件中label2增加的长度
dim addlenth
timer1_timer()
if label2.width>=label1.width then
exit sub
else
label2.width=label2.width+addlenth
end if
end sub

text1_change()
addlenth=label1.width/val(text1)
end sub
你也可以通过改变timer的interval来设置。 参考技术B 你先打开VB，然后先中“ActiveX Dll”工程，然后开始编辑。编完后，保存一般是以“.cls”和“.vbw”保存。这时你选择“文件”菜单，弹出下拉框，选中“生成.dll”选项，它就会在上面弹出一个进度条“正在生成.dll文件”。生成以后是一个有好象齿轮状的图标。
如果你要引用，就开一个“标准EXE”工程，然后在“工程”选项中，单击“引用”，找到你刚才的“.dll”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法等。 参考技术C 你把进度条的length定义成动态的加个表看看行不？