[小试牛刀]制作个性化的欢迎界面
--------------------------------
如果你辛辛苦苦设计了一个Excel应用程序,想不想很臭美的显摆一下?那我们就给它设计一下“欢迎界面”吧,让每一次别人用它的时候都给他点信息,告诉他,这是爷我做的,顺便也打打广告什么的。 什么是“欢迎界面”?经常作用电脑的我们应该不陌生吧?打开Excel、Word、PS等等软件时,在加载的那几秒钟里,都显示一个欢迎界面,给我们介绍了一些基本的信息。
这一贴我们就来给我们的Excel做一个个性化的欢迎界面,需要实现的目的是: (1)打开Excel文件时,隐藏Excel应用程序的界面,同时弹出一个欢迎界面,界面上有你想向别人显摆的内容,有什么,随你了; (2)欢迎界面显示5秒钟后,退出欢迎界面,进入Excel文件; (3)界面上要动态显示几秒钟后进入工作薄。 例子见附件: 欢迎界面.rar (40.37 KB)
---------------------------------- 这是我们第一次来做例子,在制作的过程中,也许你需要弄清楚以下一些问题,如果不知道的,去查Help了: 1、想一想,需要发生什么事件才能实现在打开Excel的时候隐藏程序的界面而显示欢迎界面? 2、要隐藏或显示一个对象,需要修改它的Visible属性,Excel应用程序是什么对象?还记得吗? 3、显示一个窗体要用什么方法?关闭一个窗体要用怎么做? 4、如果我们用一个标签来显示“几秒种后进入文件”,那么每隔一秒种我们需要修改一次该标签的什么属性? 5、怎样安排一个程序在将来的某个时间运行?这需要用到OnTime方法。 如果有一个程序名叫“mysub”,我们需要这个程序在5秒钟后运行,则代码为: 复制内容到剪贴板
代码:
Application.OnTime Now + TimeValue("00:00:05"), "mysub"
详情可以查对象模型,里面有介绍。 6、怎么在程序里调用另一个过程? 语句格式为:Call 程序名 如要在一个程序里运行名为“mysub”的过程,只需要输入:Call mysub即可。 其实直接输入程序名也可以,但我不喜欢这样做,总感觉不便于阅读! 7、怎样禁用户通过关闭窗体右上角的关闭按钮关闭“欢迎界面”?这需要用到窗体(UserFrome对象)的QueryClose事件了。请查看Help。 好了,能告诉你的就这么多了,希望你能做出来!我例子的密码会在下一贴的时候公布!为了能好好显摆一下,希望你的欢迎界面不要像我的这样简单,多给它美化美化,不但可以加深自己对窗体的认识,还可以增加显摆的条件。 希望各位把自己的成果展现出来,供大家学习!