在VBA中绕着圈子继承类

最新推荐文章于 2024-08-28 22:57:31 发布

原创最新推荐文章于 2024-08-28 22:57:31 发布 · 3.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vba #tree #events #扩展 #class #工作

树同时被 2 个专栏收录

34 篇文章

订阅专栏

VBA中的类

9 篇文章

订阅专栏

本文介绍了一种在VBA中使用类来封装和扩展TreeView控件事件处理的方法，通过创建类模块，利用WithEvents关键字实现事件自动响应，从而减少重复编码，简化维护。在窗体启动时实例化类并将其树控件属性设置为窗体上的TreeView，事件发生时系统会自动调用类中的事件处理函数，实现了对树控件的定制化事件响应。

作者：xixi

出处：http://blog.youkuaiyun.com/slowgrace/archive/2008/12/05/3452804.aspx

Technorati 标签: 类,继承,vba,自定义,事件过程,封装,treeview

想来想去，还是决定用类来封装通用的树操作。为什么呢？

可以简化响应事件的编码
封装得比较好，可以减少不封装可能导致的bug；比如我可以把树控件、树表都封装在这个类里，省得每次用还得另写代码去做查询。
可以设计个性化的事件。因为，貌似自定义事件只能存在于类模块中。raise event, withevents等放在标准模块中好像就会出现编译错误。

后2个揍不细说了，我们单说第一条：可以简化procedure handler的coding。

我原来设计的是，在树的标准模块中写public sub，treeview控件的事件响应过程调用树标准模块中的public sub。这样具体做事的步骤我只需要在树的标准模块中写一次就成了。不过，麻烦的是，对每个树控件，我都得在相应的事件处理过程里写上这么一句调用标准模块的相应过程的代码。假如我有若干窗体，共计用了n个树控件，同样的语句，我就得写N遍；假设我有m个事件要响应，那我就得写M×n遍call ×××_××()。每次，我新添一个事件，就得把所有树过一遍，给它添上这个事件处理过程，不得遗漏。

而如果用类，我只要在各窗体启动的时候生成这个类（每个树控件1个，共m个），各种事件发生时，各树控件就会自动调用类模块里相应的事件处理函数，不用我写一行代码。工作量由 M×N 锐减为1×N。神奇吧。

步骤：

在类模块里声明with events的树控件变量
Public WithEvents tree As MSComctlLib.TreeView
在类模块里写树控件变量的事件响应程序
Private Sub tree_Collapse(ByVal Node As MSComctlLib.Node)
MsgBox Node.Tag & " collapse clase"
End Sub
Private Sub tree_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node.Text & " node click tree class"
End Sub
在含树控件的窗体模块里声明类的对象实体
Dim objTest1 As myCls
Dim objTest2 As myCls
在窗体的open过程里，把该对象实体的树控件变量设置为窗体里的树控件（每个树控件对应一个变量）
Set objTest1 = New myCls
Set objTest1.tree = Me.TreeView6.Object
Set objTest2 = New myCls
Set objTest2.tree = Me.TreeView2.Object

原理：

Q：事件处理过程为何会被自动调用？
A：对于用with events声明的对象变量，当某事件发生时，系统会自动调用该对象变量的事件处理过程。
Q: 这是不是就可以说，我们用这种方式定义了一个扩展到树。它会对发生在树控件上的事件有自己特有的响应。
A: Right。一般扩展类的方法是用继承，就是在父类的基础上加属性、加方法、加事件。而现在我们不是直接在父类（树控件类）的基础上这样扩展，而是把树控件类作为我们独有的类的一个属性，再把它的独有的事件响应方法和它一起打包。
Q: 有点明白了。你能不能小结一下“绕圈继承法”的要点？
A：这个名字起得好。绕圈继承法的基本思路是：把要扩展的类（不妨称作基类），作为新类的一个属性，和其他相关的属性、方法、事件、事件处理过程打包封装。其要点如下：
1. 把基类作为新类的属性对象变量，用public with events声明。用with events是为了利用系统内部的事件触发机制；用public是为了类外部的函数能够访问它（比如set它，让它指向真正的变量，不过也许可以用private+property过程来处理，以后再讨论哈）
2. 写该属性对象变量的事件处理过程（和在窗体模块里写控件的事件过程一样）
3. 在新类里添加想给基类扩充的其他属性、方法、事件等（就像写其他新类一样）。
Q：我还是有点晕。怎么会把对象的树指向窗体的树控件后，窗体的树控件就会自动调用对象的事件处理过程了？
A：呵呵，是有点绕。系统响应事件的顺序是先调用系统缺省的事件处理过程，再调用用户自定义的事件处理过程。比如，我们考虑窗体上的treeview6的nodeclick事件，当这个事件发生时，
1. 首先，系统会先调用缺省的事件处理过程，然后调用用户自定义的事件处理过程，也就是treeview6所在窗体模块里的treeview6_nodeclick过程，由于我们没写这个过程，所以，这一步只发生系统缺省的动作。
2. 其次，由于objtest1.tree也指向treeview6这个控件，所以这个事件同时也会触发objtest1.tree的事件处理动作，同样也是先缺省、后自定义。由于我们在mycls模块里定义了tree的nodeclick自定义事件过程，所以就会被触发。
3. 所以，本质是由于系统会自动调用自定义事件过程导致的；而系统之所以会调用类的自定义事件过程而不是窗体的，是因为我们把类的树对象指向了窗体上的树控件。所以，更进一步的本质是系统自动调用了类的树对象的自定义事件过程。而要这个魔法能玩转的技巧很简单，就是：让类的树对象指向窗体的树控件。
Q: 指向窗体的树控件的那个类对象是不是得是模块级的对象变量啊？
A：是的。新类的对象必须是窗体模块级的变量，与窗体的生命长度一样。因为只有这样，它才能始终响应它所指向的树控件上的各种事件，与树控件共存亡。从这个意义上，也许可以把这个类命名为“树伴侣”。树伴侣的生命历程如下：
1. 在窗体模块声明树伴侣变量。
2. 在窗体open事件为它set new，分配内存空间。
3. 在窗体close事件为它set nothing，释放内存空间。
Q: 在把树伴侣set nothing的时候，需不需要先把它的tree变量set nothing啊？
A：我觉得不需要。因为在树伴侣里存的是treeview控件的指针，当树伴侣set nothing的时候，这个指针是不是就自动消亡了呢？我也不确定哦

参考文献：

qee用，“VBA类：隐者的秘密”，http://club.excelhome.net/dispbbs.asp?boardID=2&ID=198049&page=42&px=0
Julitta Korol，“Access.2003.Programming.by.Example.with.VBA.XML.and.ASP”，by 2005, Wordware Publishing, Inc.

更多树类文章