进度条怎么使用??

Question

急用呀~~~~~~~~~~~~~~~~~~``````

Answer 1

progress.max = 10000for i =1 to 10000
 progress.value = i
next

Answer 2

max 确定最大值
value 设置当前值
循环后便出现进度效果了。当前循环中的东西执行速度越慢效果越明显。

Answer 3

如果在使用过程中不小心Max也设为0，则会报错。

Answer 4

同意楼上的，min可以为0 ，但是max绝对不行

Answer 5

Private Sub Command1_Click()
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    ProgressBar1 = 0
    For J = 1 To 100
        For I = 1 To 10000
            DoEvents
        Next I
        
        ProgressBar1.Value = J
    NextEnd Sub

Answer 6

With pgPro '显示进度条
        .Visible = True
        .Max = rsTasklinshi.RecordCount
      End With
      
    For i = 1 To rsTasklinshi.RecordCount '生成工作单
      pgPro.Value = i
    next