火星虫族电影:vb的进度条怎么用?

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

End Sub

讲一个最原始的方法就是用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来设置。

你先打开VB，然后先中“ActiveX Dll”工程，然后开始编辑。编完后，保存一般是以“.cls”和“.vbw”保存。这时你选择“文件”菜单，弹出下拉框，选中“生成.dll”选项，它就会在上面弹出一个进度条“正在生成.dll文件”。生成以后是一个有好象齿轮状的图标。
如果你要引用，就开一个“标准EXE”工程，然后在“工程”选项中，单击“引用”，找到你刚才的“.dll”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法等。

你把进度条的length定义成动态的加个表看看行不？