VB的进度条问题

来源：百度知道编辑：UC知道时间：2024/05/29 19:58:22

大家好，我想做一个进度条（只要代码，不要那些教我们的东西），有一个按钮，一点就开始运行进度条，进度条从0%变成100%后（要显示数字），就会弹出对话框，说到：充值完毕（我自己写的），大家教教我吧！
千总，你的实例我下不到，而shezonglei的代码有问题！

'再窗体上发一个进度条ProgressBar1，一个按钮command1，一个时钟控件 Timer1，代码如下
Private Sub Form_Load()
With Me.ProgressBar1
.Max = 100
.Min = 0
.Value = .Min
End With
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
Me.Label1.Caption = Format(Me.ProgressBar1.Value / Me.ProgressBar1.Max, "Percent")
If Me.ProgressBar1.Value = Me.ProgressBar1.Max Then
MsgBox "充值完毕"
Timer1.Enabled = False
Me.ProgressBar1.Value = 0
End If
End Sub

http://www.namipan.com/d/9e35e7acf91c410dda1d34b78170357a05df57746d070000 ;

做好的程序下载地址。下载运行看看

我试过了，没有任何问题，你用纳米盘下载工具下载

vb进度条的问题 VB的进度条问题! VB进度条问题 vb做进度条问题 vb的进度条关于vb中复制文件夹时进度条的问题关于VB语言中用标签模拟进度条的问题 vb的进度条怎么用? vb进度条开机进度条的问题