集合类VBA集合对象的安全包装

  第二电脑网导读:文中,我们讨论了这些局限,并向你展示如何通过使用(你猜是什么)类模块来克服这些局限。Collections中遇到的麻烦Collections 对象中到底有什么问题呢?它似乎存储对象存储得非常好。事实上,它工作起来的确是太好了。Collections对象得{zd0}问题是它可以存储到任何数据类型得引用,例如Integer, String, Long, Variant, 等 (见图1)。当然,如果你能保证每个对...
  正文:你迟早都要管理一组由VBA类模块创建的自定义对象,VBA Collection对象是实现这一目的的理想工具。我们在该杂志的Premiere期刊中曾经介绍过Collections,并且阐述了如何使用Collection对象来存储其他对象。虽然该项技术十分有用,但它确实还存在一些局限。在本文中,我们讨论了这些局限,并向你展示如何通过使用(你猜是什么)类模块来克服这些局限。

Collections中遇到的麻烦

Collections 对象中到底有什么问题呢?它似乎存储对象存储得非常好。事实上,它工作起来的确是太好了。Collections对象得{zd0}问题是它可以存储到任何数据类型得引用,例如Integer, String, Long, Variant, 等 (见图1)。

当然,如果你能保证每个对象都具有相同得类型,并且具有相同得属性何方法的话,那么在Collection中处理对象就变得异常简单。例如,作为本月范例Excel VBA项目的组成部分,我们创建一个自定义的File类来代表一个磁盘文件。这个File类有几个属性,其中包括P ath, Size, 和 ShortName。如果你创建了一个File对象的Collection,那么你将希望这个Collection中的每个对象都具有这些属性。你可以毫无异议地使用与下面类似的:

' Print the size of the first file in the Collection.
Debug.Print colFiles.Item(1).Size

但是,如果colFiles Collection 中的{dy}个对象不是File,将会出现什么情况呢?如果它是一个Form 或 Control对象,又会怎样呢?如果它根本就不是一个对象呢?当然,当它试图执行该代码的时候,VBA将生成运行时间错误。



图1 (左)VBA Collection对象可以容纳任何类型的对象



图2(右) 创建一个Collection类来防止不想要的对象进入集合

输入Collection类

Collection 类 可以充当Collection对象的过滤器,限制你可以在里面存储的对象类型(如图2所示)。通过与你的应用程序中的Collection类(二不是Collection对象本身)的互相作用,你可以防止不想要的对象的进入。创建和使用Collection类允许你扩展Collection对象的属性和方法(后面我们将举例说明)。

为了说明Collection类以及如何创建一个Collection类,我们将使用带有通过扫描磁盘目录创建的文件集合的Excel 97项目。图3显示了一个表单,它用你选择了路径之后存储在自定义Collection类中的文件信息使得列表框通俗化。

这个表单使用一个叫做Files 的Collection类来通俗化列表框。在创建Collection的时候,以向你的VBA项目添加一个新的类模块作为开始,然后在这个新模块的声明段声明一个Private Collection对象。下面是来自Files类模块的声明:

' Collection of files.
Private pcolFiles As New Collection

为了将Collection对象与外界"隔绝",并阻止程序的其他部分用无用的东西填充它,必须将Collection对象声明为Private 。

复制所需要的方法

当然,一旦你已经将Collection 对象声明为Private,那么对于任何过程都没有办法向其中添加项目或从中删除项目了。因而,下一步就是复制Collection对象的标准方法了。尽管听起来象是做了大量额外的工作,实际上仍然在做我们前面所提及的"过滤"工作。

请记住,内建的Collection对象具有Add方法,该方法接受对象引用和独特的、包括文字与数字的标识符。如果你的应用程序正在直接使用Collection对象,那么它将极有可能创建对象的一个新的实例,并将其添加到Collection本身。

' Create a new instance of an object.
Dim objFile As New File
objFile.Path = "C:AUTOEXEC.BAT"

' Add to a Collection object.
colFiles.Add objFile, objFile.ShortName

应用Collection类,应用程序调用该类的Add方法,传递任何必需的信息。请将先前的代码与Files类的Add方法做一比较:

With a Collection class, the application calls the Add method of the class, passing any required information. Contrast the previous code with the Add method of the Files class:

Public Function Add(Path As String) As File

Dim objFile As File

' Create the new File object.
Set objFile = New File
objFile.Path = Path

' Add it to the Private collection.
pcolFiles.Add objFile, objFile.ShortName

' Return a pointer to the new object.
Set Add = objFile

End Function

在本例中,到Collection的对象创建和添加发生在Add方法内部;而类则保留了完整的控制。任何必需的信息(例如文件的路径)是作为参数向方法提供的。由应用程序调用将文件添加到Collection的代码然后可以简化为:
来源:

郑重声明:资讯 【集合类VBA集合对象的安全包装】由 发布,版权归原作者及其所在单位,其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实,请读者仅作参考,并请自行核实相关内容。若本文有侵犯到您的版权, 请你提供相关证明及申请并与我们联系(qiyeku # qq.com)或【在线投诉】,我们审核后将会尽快处理。
—— 相关资讯 ——