穿越火线全部音效:VB进度条问题

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 15:41:38

需要实现的就是点按钮1，然后进度条走动，经过3秒完成，然后TEXT6显示出来，怎么实现？
我自己编的时候老是报错，有高人帮忙没？

其实进度条是没有任何作用，只是为了好看，但是需要这个代码！

Private t As Integer
'保存当前值
Private Sub Command1_Click()
Timer1.Enabled = True
ProgressBar1.Max = 3
t = 0
End Sub

Private Sub Timer1_Timer()
t = t + 1
ProgressBar1.Value = t
If t = 3 Then '等于3秒时显示文本控件
Timer1.Enabled = False
Text1.Visible = True
End If

End Sub

OK，程序已经完全实现你的效果，在WinXp+vb6.0下测试通过。

VB进度条问题 vb进度条的问题紧急求救，关于VB中的进度条问题！ vb的进度条怎么用? VB中的进度条怎么用？？ XP进度条启动问题上网进度条问题 VB编程,复制文件夹,要求有进度条!~~ 启动时进度条的问题求助！！！！！！系统进度条的问题