Office中国论坛/Access中国论坛

标题: 无限期等待动画窗体 [打印本页]

作者: 咱家是猫 时间: 2008-1-19 16:21
标题: 无限期等待动画窗体
你试过执行一个比较大的动作,需要相对比较长的等待时间吗?
在这个时候,是否想过让弹出一个窗口告诉用户请稍稍候呢?
如果仅仅是一个文本提示"正在进行...,请稍候..."是不是觉得有些枯燥呢?
那么,是不是想点动画效果呢?
但你必需明白一点，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

作者: fswxs 时间: 2008-1-19 16:31
沙发

谢谢版主分享

作者: huangxiuwen 时间: 2008-1-19 17:34
顶你。顶你。顶你。顶你。顶你。

作者: goto2008 时间: 2008-1-20 13:39
顶一下，呵呵

作者: laiguiyou 时间: 2008-1-22 20:27
没有出错处理，如果程序运行有错的话，那么这个动画就一直运行。别人还以为未完呢，

作者: dreamice01 时间: 2008-1-26 12:19
支持原创，丁页一下子了

作者: yaozi 时间: 2008-1-27 14:28
学习,学习,再学习.......

作者: hunrybecky 时间: 2008-1-29 19:28
猫哥哥，原来是OFFICE论坛的斑竹之一，刚才才注意。不错。

作者: miantiao1 时间: 2008-2-28 14:58
楼主的活法很诱惑，呵呵。顶先，我要

作者: df 时间: 2008-2-28 23:16
ttttttttttttttttttttttttt

作者: yscwl 时间: 2008-3-20 19:02
xuexi, xuexi zaixuexi

作者: 飘零雨 时间: 2008-3-22 13:59
学习中......

作者: yori2007 时间: 2008-3-29 10:30
[:30] [:31] [:22]

作者: yyjlili 时间: 2008-4-11 21:28
好东西看不完

作者: linag516 时间: 2008-5-18 19:55
再顶

作者: pyt1 时间: 2008-5-27 17:56
顶一下，呵呵

作者: ABCaccess 时间: 2008-6-1 11:05
谢谢你与大众分享

作者: sbsfhgl 时间: 2008-7-19 20:40
fffffff

作者: 右手 时间: 2008-8-9 06:22
我看一下

作者: 罗春芳 时间: 2008-8-10 10:22
[:35]

作者: lkh 时间: 2008-8-13 13:44
标题: kk
[:33] [:33]

作者: zjs0270 时间: 2008-10-30 21:31
看看

作者: yyyyrx 时间: 2009-2-27 05:55
学习,学习.......

作者: 82077802 时间: 2009-2-27 07:52
支持原创

作者: beenet 时间: 2009-2-27 10:15
切合实际的需要谢谢

作者: jiayinlb 时间: 2009-2-28 10:51
学习

作者: smileyoufu 时间: 2009-3-7 12:59
看看学习一下

作者: narcissus82 时间: 2009-3-20 10:40
学习啦

作者: 阿六爱狗 时间: 2009-3-27 11:31
支持

作者: feisha2009 时间: 2009-6-12 09:01
支持原创。。。

作者: feisha2009 时间: 2009-6-12 09:04
果然是无限等待哦，好东东，谢谢

作者: fishlike 时间: 2009-6-23 10:05
支持楼主

作者: leijiqiang 时间: 2009-8-3 15:04
好东西

作者: yanwei82123300 时间: 2009-8-3 16:18
谢谢版主分享

作者: chenyingfengsx 时间: 2009-8-14 19:57
dddd

作者: 石三少 时间: 2009-8-19 15:41
我看看

作者: lucascott 时间: 2009-8-27 04:27
good

作者: 冬冬 时间: 2009-9-13 22:55
学习一下

作者: 真主 时间: 2009-9-14 10:59
学习学习

作者: 老葫芦 时间: 2009-9-15 09:45
谢谢分享

作者: chaojianan 时间: 2009-10-13 20:43
谢谢分享。

作者: liaoqiang234 时间: 2010-1-1 11:12

作者: sxb2007 时间: 2010-4-3 21:41
精彩!!!

作者: zww3008 时间: 2010-4-4 21:31
我还为此发过一个问题贴呢。才知道这里有更好的解决办法。

作者: sagemeyou 时间: 2010-5-6 07:47
又DOWN了好东西。

作者: shines 时间: 2011-1-14 14:07
多谢分享

作者: lwb_hao 时间: 2011-1-28 14:34
好东东

作者: lwb_hao 时间: 2011-1-28 14:39
如何搞个有时间条件等待？

作者: xjliyuehua 时间: 2011-2-18 13:18
谢谢版主分享

作者: lijiexiang 时间: 2011-4-21 23:46
学习学习

作者: jc2016 时间: 2013-9-2 15:41
看看

作者: itso 时间: 2014-6-21 21:08
顶一个先！~good!

作者: leonshi 时间: 2015-9-29 13:03
看看

作者: Alashome 时间: 2015-12-10 08:04
good

作者: c101 时间: 2016-9-3 10:00
謝謝版主分享

作者: czzlj520 时间: 2016-11-12 03:45
学习一下

作者: gxstudent 时间: 2016-11-24 15:50
学习

作者: 轻风 时间: 2018-10-24 15:14
收藏

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)