VB的进度条

来源：百度知道 编辑：UC知道 时间：2024/06/19 17:28:06
我想做一个进度条。有一个按扭，一个进度条（要显示数字，从0%到100%的数字），按下按扭，进度条开始运转，到100%就弹出对话框：充值成功！
请问这个代码怎么写？ 或给事例也可以！（要写代码就把代码直接写出来）

一楼好像有点问题
Dim i As Integer
Private Sub Command1_Click()
For i = 0 To 10000
DoEvents
ProgressBar1.Value = Int(i / 100)
Label1.Caption = (Int(i / 100)) & "%"
Debug.Print Int(i / 100)
Next i
MsgBox "充值成功", 64
End Sub
要一个button，一个label，一个progressbar

Dim i As Integer
Private Sub Command1_Click()
For i = 0 To 10000
DoEvents
ProgressBar1.Value = i
Label1.Caption = Str(Int(i / 100)) & "%"
Next i
MsgBox "充值成功", 64
End Sub

加一个按钮，再加一个label,还有就是进度条！

很详细了
没有什么补充了