| 你试过执行一个比较大的动作,需要相对比较长的等待时间吗? 在这个时候,是否想过让弹出一个窗口告诉用户请稍稍候呢? 如果仅仅是一个文本提示"正在进行...,请稍候..."是不是觉得有些枯燥呢? 那么,是不是想点动画效果呢? 但你必需明白一点，ACCESS不支持多线程， 换句话说，当你一个过程执行时，ACC将所有时间分配给了它,别的过程只能等, 这意味着在你的原程序里无法实现这种效果． 那怎么办呢,办法不是没有,请按我下面的方法来测试下. 请先下载下面例子测试效果 再次声明:除非你的动作够大,等待时间超过5秒,不然就最好不要用了,因为此方法其实就是无谓的又添加了些等待时间. [attach]28105[/attach] 将附件释放到你程序所在的文件夹中 将你的过程略作改动如下 Dim objApp As New Access.Application objApp.OpenCurrentDatabase CurrentProject.path & "\Wait.mdb" objApp.DoCmd.OpenForm "WaitForm" ' objApp.Forms("WaitForm").TipText.Caption = "正在做什么动作,请稍候..." '告诉用户,当前程序在执行什么动作 ... '这里是你的原过程代码 objApp.CloseCurrentDatabase Set objApp = Nothing [hide] [attach]28104[/attach] [/hide]详细内容：http://www.office-cn.net/forum.php?mod=viewthread&tid=59194 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2024-5-13 14:57 , Processed in 0.086225 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
