关于【进度条】的问题

eio

http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=22526&ID=22526 示例很好，但我想知道，做一个窗体的查询命令，如果时间等15秒，有的用户可能认为死机，希望进度条能够读取报表的“打开速度”，换言之，报表打开快，进度条要快，可以吗，xiexie！

WTM1

无能为力！！可能api读取，可以解决！

vba我没有找到合适的代码！！

有人会解决吗？

zhengjialon

cg1给你推荐的代码可以解决吗？

eio

就是将按钮执行打开新窗体（进度条或动画）或再将原窗体的可见属性隐藏，再在报表打开时将进度条窗体关闭，可是由于数据大，等待的过程中进度条只显不进，动画不动啦！

Trynew

就是那个几百万条记录的表？痛苦了吧？
（如果是执行循环，可在循环体中加上DOEVENTS语句和显示改变进度条和动画的语句，如果是执行查询或等待Access的内部命令，Access的状态栏上有进度条显示。几百万条记录，你只好抽根烟或喝杯茶去了。）

[此贴子已经被Trynew于2002-12-5 16:00:37编辑过]

guotianxin

动画不动，可用me.repaint刷新窗体

yrg

我觉得上面这种进度条不用也罢。

txman

要预先知道读取纪录的时间恐怕有困难。但用进度条匀速来回跑，最后计算出时间，下面的函数可能可以用：
Private Declare Function CreateThread Lib "Kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
我以前在VB程序中用过，比DoEvents效果好多了，据说在VB6中属于“伪线程”，但确实在短促的读磁盘时不能显示多线程的效果。其他方面就同多线程一样。

XWQ2000

kkkk

nknk

我是初学者,楼主大哥不知好不好?