- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教,怎样设计一个动态提示框! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2116)
-- 发布时间：2009/3/16 14:32:00
-- 请教,怎样设计一个动态提示框!
例如,在复制数据的时候,出现一个提示框“正在复制……”，告诉用户正在复制数据，等复制完成后，自动关闭这个提示框！
好像messagebox没有这样的功能，不知怎样实现？
-- 发布时间：2009/3/16 15:39:00
--
自己做一个独立窗口，开始的时候显示，结束的时候关闭。
-- 发布时间：2009/3/16 16:14:00
--
能不能写一个例子
-- 发布时间：2009/3/16 16:57:00
--
呵呵，其实很简单啊：
Forms("窗口").Open()
原来的代码
Forms("窗口").Close()
-- 发布时间：2009/3/16 22:03:00
--
以下是引用狐狸爸爸在2009-3-16 16:57:00的发言：
贺老师，有问题啊。我按你的方法，发现新打开窗口的标签不显示任何内容，不知是哪儿的问题。呵呵，其实很简单啊：
Forms("窗口").Open()
原来的代码
Forms("窗口").Close()
如我做的例子，在窗口1中点按钮，自动打开窗口2，这时候窗口2的标签不显示任何内容！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
[此贴子已经被作者于2009-3-16 22:04:32编辑过]
-- 发布时间：2009/3/16 22:10:00
--
呵呵，应该这样：
forms("窗口1").close
forms("窗口2").open
Application.Doevents
dim j as double
for i as double =1 to 1000000000
j=j+i
next
forms("窗口2").close