以文本方式查看主题

-  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)

--  作者:cpayinyuan
--  发布时间: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()


--  作者:cpayinyuan
--  发布时间: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