无限期等待动画窗体

咱家是猫 · 发表于 2008-1-19 16:21:26

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

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

轻风 · 发表于 2018-10-24 15:14:35

gxstudent · 发表于 2016-11-24 15:50:28

学习

czzlj520 · 发表于 2016-11-12 03:45:52

学习一下

c101 · 发表于 2016-9-3 10:00:42

謝謝版主分享

Alashome · 发表于 2015-12-10 08:04:56

good

leonshi · 发表于 2015-9-29 13:03:46

看看

itso · 发表于 2014-6-21 21:08:11

顶一个先！~good!

jc2016 · 发表于 2013-9-2 15:41:33

看看

lijiexiang · 发表于 2011-4-21 23:46:32

学习学习

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 无限期等待动画窗体

本帖子中包含更多资源

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)