Private Sub Form_Load()

ProgressBar1.Value = 0
ProgressBar1.Min = 0
ProgressBar1.Max = 10
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If ProgressBar1.Value <= 10 Then
Unload Me
form1.Show
End If
ProgressBar1.Value = ProgressBar1.Value + 1

End Sub

我想做一个启动项　　就用到一个进度条（ProgressBar)和一个(Timer)控件两样　只要运行一次进度条就进到form1.show就可以了　　可是我现在上面的程序形成循环了（运行完进度条后就执行form1.show）　我下面的程序都没法运行了　光看这两个运行了　　所以想请教大哥大姐们　　谁能帮我调试一下　　小弟在此先谢谢了　　把设计好的程序写在下面就OK了！！！！！

版主留言:
你的帖子怎么连题目也没有..题目都没有当然发不出来了...
对你真无言....

[此贴子已经被ioriliao于2007-4-12 22:21:59编辑过]

Private Sub Form_Load()

ProgressBar1.Value = 0
ProgressBar1.Min = 0
ProgressBar1.Max = 10
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If ProgressBar1.Value <= 10 Then
ProgressBar1.Value = ProgressBar1.Value + 1
else

Unload Me
form1.Show
timer1.enabled=False

End If


End Sub