Sub Progress()
Total = 100000
With ProgressForm
.LabPercent = 0
.LabProgress.Width = 1
.Show 0
For i = 1 To Total
.LabProgress.Width = .Width * 0.8 + Int(i / Total * .Width * 0.1)
.LabPercent.Caption = CStr(80 + Int(i / Total * 10)) + "%"
DoEvents
Next i
End With
Unload ProgressForm
End Sub
进度条
最新推荐文章于 2024-06-16 15:09:53 发布