进度条的控制问题？

Question

用vb调用一个存储过程，由于要很长时间，想用，进度条来显示进度。
能否给我一个程序列子。

Answer 1

Dim n As Integer
Private Sub Form_Load()
 n = 0
 ProgressBar1.Min = 0
 ProgressBar1.Max = 100
 ProgressBar1.Scrolling = ccScrollingSmooth  '这个可以在属性里自己看一下
 Timer1.Interval = 200
End SubPrivate Sub Timer1_Timer()
 n = n + 1
 ProgressBar1.Value = n
 If n = 100 Then Timer1.Enabled = False
End Sub
'知道这些应该可以用了，你可以把ProgressBar1.Max 设成文件的长度，
'用filelen(path)得到文件长度

Answer 2

比如你的滚动条叫BAR1
而你的程序要运行很长时间。
比如你要用一个循环向一个数据库中保存1000条记录。
你先把BAR1的MAX属性设为1000
然后你在循环中写BAR1.VALUE=BAR1.VALUE+1就可以了

Answer 3

对了，添加进度条是 microsoft windows common conctrl 6.0

Answer 4

我补充一下刚才的
将ProgressBar1.Max 设成文件的长度后，每存储n个字节就让
ProgressBar1.Value = ProgressBar1.Value + n
我以前也写过一个文件分割&合并的东东，也用这个方法使用了进度条，只是用了进度条后
速度会明显变慢,你可以试一下

Answer 5

在存储过程中将进度写入一个全局表,然后在前台timer1事件中定时读取.即可.