关于进度槽显示进度的问题

Question

我用VB编个程序做报表（调用Excel），在报表生成的时候，想用一个进度槽显示进度，不知如何做？谁能给点提示或意见，谢谢各位达人了！！

Answer 1

窗体上放一个ProgressBar，Timer,commandbutton各一个
Private Sub Command1_Click()
    
     Wait (10)
    
End SubSub Wait(Sec As Single)
    Dim Start As Single
    Start = Timer    
    Do Until (Timer - Start + 86400) Mod 86400 = Sec
        ProgressBar1.Value = (Timer - Start + 86400) Mod 86400
    Loop
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Answer 2

Private Sub pgs()
Dim counter As Integer
Dim workarea(8000) As String
ProgressBar1.Min = LBound(workarea)
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For counter = LBound(workarea) To UBound(workarea)
  workarea(counter) = "asd"
  ProgressBar1.Value = counter
Next
  ProgressBar1.Value = ProgressBar1.Min
End Sub
我把它写成函数的形式   直接调用就可以了

Answer 3

这个ProgressBar怎么添加阿？找了半天没找到阿！

Answer 4

晕，工具栏点右键，添加Microsoft Windows Common Controls 6.0,就会看到了

Answer 5

用XP的方法比较好哦一遍一遍又一遍的刷（PS：偶机器慢的时候，看那3个小绿条都要抓狂了）