vb进度条怎么计算操作时间

Question

比如打开窗体时用进度条显示

Answer 1

窗体在加载时是没办法判断加载了多少的...
如果希望显示加载进度一般应这样做..
设一个全局变量。假定是Nload
之后在加载需要长时间加载的窗体的load事件里自己找一些地方，写上Nload=10 Nload=20 Nload=....
另外Nload后面要写上doevents
之后就可以通过变量 NLoad来判断这个窗体大概装载到什么位置了。

Answer 2

添加控件textbox一个,progressbar一个,按钮2个 ,timer一个,复制以下代码即可:

Option Explicit
Dim n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Command2_Click()
If Val(Text1) <= 0 Then Exit Sub
Text1 = Val(Text1) - 1
ProgressBar1.Value = n - Val(Text1)

End Sub

Private Sub Text1_LostFocus()
n = Val(Text1)
If n <= 0 Then MsgBox "text1不能为0": Exit Sub
ProgressBar1.Max = Val(Text1)
End Sub

Private Sub Timer1_Timer()
Text1.Text = Val(Text1) - 1
ProgressBar1.Value = n - Val(Text1)
If Val(Text1) <= 0 Then Timer1.Enabled = False
End Sub

Answer 3

1、点击系统菜单“工具”－＞“选项”，调出选项对话匡后选择“控件”页，再选择ActiveX控件，选定列表栏里的Microsoft ProgressBar Control控件，一般里面有两个版本的，分别是V5.0(SP2)和v6.0。建议用V5.0（SP2）版的，这个控件的风格可以根据WIN的主题风格的变化而变化，而V6.0是固定的一个格子一个格子的跳。
选定后，前面的小匡内会有个‘X’，点确定。

Answer 4

可以的!!

没问题的!!!

你用个进度条的空间,就可以快乐!

Answer 5

我想，能直接进入程序不花时间为什么还要用一个进度条来装饰你的程序有多大，这不是在浪费广大网民的时间么？