一个关于用其它窗体显示进度条的问题。请大家指教。

Question

我的问题是这样的
假如我用窗体a刷新数据库里面的数据的时候如果数据量很大就需要用户等待，这个时候我就用b窗体上面放了一个进度条，在a窗体进行重新读取数据库的时候我就把b窗体打开，让b窗体上面的进度条自动循环就可以了。问题是我在单独打开b窗体的时候进度条可以一直不停的循环运行但是我从a窗体执行一个操作的时候比如代码如下：
private sub cmdre.......
b.show
doevents
.......
.....
....
unload b
end sub
这个时候b窗体上面的进度条就不动了
请问怎么样才能在a执行数据读取的时候，让b窗体的进度条也不要停止运行呢？请各位不吝赐教

Answer 1

doevents
b.showb里面加doevents试试

Answer 2

b里面加了doevents可是还是不行

Answer 3

private sub cmdre.......
b.show
doevents.....
....
unload b
end sub我觉得是这个函数写得有问题。读取操作应该是个循环吧。
for i=0 to 1000
b.progressbar1.value=i
......
next i仅供参考。为什么不把函数放在b里面呢，然后让b取得焦点，对a中变量操作。读取完成时关闭
我记得我就是那么做的。

Answer 4

使用timer组件，放到B窗体中，让它的事件里面去增加B的进度。