VBA控件教程:声明和引发事件

2015-06-05 22:54 阅读 60 次 评论关闭

暂且假设有一个 Widget 类。该 Widget 类有一种方法,该方法可能花费很长时间来执行,同时还希望自己的应用程序能够显示出一些类型的完成标志。

当然,可以让 Widget 对象显示一个用来表示完成百分比的对话框,但是以后在每个使用 Widget 对象的工程中,就会都离不开那个对话框了。对象设计的一个较好的原则是让使用该对象的应用程序来处理用户接口—除非设计该对象的全部意图是管理一个窗体或者一个对话框。

Widget 的作用是执行其它任务,因此合理的做法是:把一个 PercentDone 事件给它,然后让调用 Widget 方法的过程来处理那个事件。PercentDone 事件也可以提供一种机制来取消任务。

现在,可以开始为该主题来建立代码示例了,方法是打开一个“标准 EXE”工程,将两个按钮和一个标签添加到“Form1”中。在“工程”菜单上,选择“添加类模块”,将一个类模块添加到工程中。象下表中所示的那样给对象命名。

对象 属性 设置值
类模块 Name Widget
第一个按钮 Caption 启动任务
第二个按钮 Caption 取消
标签 Name
Caption
lblPercentDone
"0"

 

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA控件教程:声明和引发事件 | 猎微网
分类:VBA 标签:, , ,

评论已关闭!