VB的进度条

显示全部楼层 · 2009-4-15 12:16:09

我想做一个进度条。有一个按扭，一个进度条（要显示数字，从0%到100%的数字），按下按扭，进度条开始运转，到100%就弹出对话框：充值成功！
请问这个代码怎么写？或给事例也可以！（要写代码就把代码直接写出来）

千问 · 2009-4-15 12:16:09

一楼好像有点问题 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...

千问 · 2009-4-15 12:16:09

Dim i As IntegerPrivate Sub Command1_Click()For i = 0 To 10000DoEventsProgressBar1.Value = iLabel1.Caption = Str(Int(i / 100)) & "%"Next iMsgBox "充值成功", 64End Sub...

千问 · 2009-4-15 12:16:09

很详细了没有什么补充了...