无限期等待动画窗体

咱家是猫

你试过执行一个比较大的动作,需要相对比较长的等待时间吗?
在这个时候,是否想过让弹出一个窗口告诉用户请稍稍候呢?
如果仅仅是一个文本提示"正在进行...,请稍候..."是不是觉得有些枯燥呢?
那么,是不是想点动画效果呢?
但你必需明白一点，ACCESS不支持多线程，
换句话说，当你一个过程执行时，ACC将所有时间分配给了它,别的过程只能等,
这意味着在你的原程序里无法实现这种效果．
那怎么办呢,办法不是没有,请按我下面的方法来测试下.

请先下载下面例子测试效果
再次声明:除非你的动作够大,等待时间超过5秒,不然就最好不要用了,因为此方法其实就是无谓的又添加了些等待时间.



将附件释放到你程序所在的文件夹中
将你的过程略作改动如下
        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

游客，如果您要查看本帖隐藏内容请回复

fswxs

沙发
谢谢版主分享

huangxiuwen

顶你。顶你。顶你。顶你。顶你。

goto2008

顶一下，呵呵

laiguiyou

没有出错处理，如果程序运行有错的话，那么这个动画就一直运行。别人还以为未完呢，

dreamice01

支持原创，丁页一下子了

yaozi

学习,学习,再学习.......

hunrybecky

猫哥哥，原来是OFFICE论坛的斑竹之一，刚才才注意。不错。

miantiao1

楼主的活法很诱惑，呵呵。顶先，我要

df

ttttttttttttttttttttttttt