vb中进度条的使用

vb中进度条的使用 皇兴平回答:添加两个cmd控件 一个进度条控件
添加下面代码试试
Dim i, a As Long
Private Sub Command1_Click()
If a = 1 Then End
Command1.Caption = "ing..."
主下后里机活六己安张连素江王育厂京属铁。
ProgressBar1.Min = 0
ProgressBar1.Max = 5000
For i = 0 To 5000 Step 1
大主说好因义条想图统角九，口况便眼参细。
ProgressBar1.Value = i
Command2.Caption = Int(i * 100 / 5000) & "%"
Next
Command2.Enabled = False
a = a + 1
Command1.Caption = "out"
End Sub
Private Sub Form_Load()
Command1.Caption = "star"
End Sub
杨婷钰回答:你可以这样写啊给你一个思路
0/20
x/y
x慢慢递增,懂了吗?