vb 实现集合类的步骤

下面的清单总结了创建集合类所需要的步骤。

1. 将类模块添加到工程中，并为它起一个名字—通常是该集合类将包含的对象名的复数形式。（请参阅本章前面的“命名属性、方法和事件”一节。）
   
   
2. 将私有变量添加进去，该私有变量包含对属性和方法所委派的 Collection 对象的引用。
   
   
3. 在 Class_Initialize 事件过程中，创建 Collection 对象。（如果希望将该对象的创建时间推迟到需要时，可以在第二步中将私有变量声明为 AS New Collection。这样每次访问 Collection 时会增加少量开销。）
   
   
4. 将 Count 属性和 Add、Item 以及 Remove 方法添加到类模块中；在每种情况下，通过调用其相应的成员，委派给私有的 Collection。
   
   
5. 实现 Add 方法时，通过只接受一种类型的对象，可以覆盖 Collection 对象的无鉴别力的 Add 方法。甚至可以不让外部创建的对象添加到自己的集合中，这样Add 方法就完全控制了对象的创建和初始化。
   
   
6. 用“过程属性”对话框，使“Item”方法成为集合类中缺省的方法。
   
   
7. 象下面显示的那样，添加一个“NewEnum”方法。用“过程属性”对话框来将其标志为隐藏的，并将一个值为 -4 的过程标识符给它，这样，它就可以使用 For Each ... Next。

   Public Function NewEnum() As IUnknown
   Set NewEnum = mcol.[_NewEnum]
   End Function
   

 

注意   上面的代码假设第二步中的私有变量被命名为 mcol。

• 将自定义属性、方法和事件添加到集合类中。

注意   在 Visual Basic 的专业版和企业版所包括的 Class Builder 实用工具，可用来创建集合类。就可以定制所得到的源代码。

 

转自：http://myelife.blog.sohu.com/87329401.html