VB写软件,在软件启动前加一个5秒钟的进度条

设置两个窗体：form1 form2
实现form1上的进度条，5秒后调出form2
在form1上放置两个控件：ProgressBar 和 Timer，然后复制粘贴如下代码：
（将timer.Intelval设置为1000）

Private Sub Form_Load()

ProgressBar1.Max = 5
ProgressBar1.Min = 0

End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1

If ProgressBar1.Value = 5 Then
Timer1.Enabled = False
Unload Me

Form2.Show

End If

End Sub

没有哪个启动进度条会规定5秒或几秒钟的，因为不同的电脑配置好坏不一样，这台电脑启动需要1秒，那台可能需要2秒，不一而足。你这种思维本身是错误的，启动的时候只需要检测资源是否初始完毕，一旦初始完毕就可以隐藏进度条窗口，而进度条的实际进度值根据你的资源量可以由你自己控制，比如加载到某个资源时，此时的进度显示20%，加载到另一个资源时进度显示40%等，而整个启动过程要花的时间不应该是由你来决定，而是由客户的电脑配置决定的。

是呀，强制加个进度没有必要，进度是根据电脑配制及实际加载量来计算的