请问进度条的控制问题?????一定高分送上!!!!

Question

private sub form_load()
    ...    me.show    '进度条...
end sub

Answer 1

在代码中间插入ProgressBar1.Value值
例如在开始把Value值设为1
  再过几行把Value值设为5
就这样以次向下加Value值就可以了！
最后把Visible属性改为False

Answer 2

可是当大量的数据要处理的时候，FORM 就死掉了~~~
怎样解决？？？

Answer 3

你不会欺骗一下用户，在Me.Show之后想办法过个几秒再进行你的数据检测？

Answer 4

做這樣的事情：
顯現是一個splash
在splash的某個地方放上一個lable
將監測的情況從lable中表現出來
這樣連进度条都免了

Answer 5

'看看我的进度条 !Sub UpdatePic(pb As Control, ByVal percent)
    Dim num$                    ' Used to hold percent string    If Not pb.AutoRedraw Then   ' Do we have off-screen image?
        pb.AutoRedraw = -1      ' No, set one up.
    End If
    
    pb.Cls                      ' Clear off-screen image
    pb.ScaleWidth = 100         ' Set for percentage
    pb.DrawMode = 10            ' Set for erasable drawing
    
    '
    ' Display the percentage, centered in the picture
    ' box.
    '
    num$ = Format$(percent, "##0") + "%"
    pb.CurrentX = 50 - pb.TextWidth(num$) / 2
    pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2
    pb.Print num$               ' Display percentage
    
    '
    ' Draw box over the percentage.
    '
    pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
    pb.Refresh                  ' Show changes on screen
End Sub'---使用方法--
For i = 1 to 100
UpdatePic Picture1 , i
Next i