集合类VBA集合对象的安全包装中卧室墙漆腻子电脑代理汽车桥壳金属相框

集合类 ：VBA集合对象的安全包装(中)

复制所需要的方法

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

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

` Create a new instance of an object.

Dim objFile As New File

th = "C:\T"

d objFile, ortName

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

With a Collection class, the application calls the Add method of the class, passing any required inf接插件ormation. 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

th = Path

` Add it to the Private collection.

d objFile, ortName

` Return a pointer to the new object.

Set Add = objFile

End Function

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

` Add a file to the collection.

d "C:\T"

In addit但是利润较高ion to the Add method, the Collection陶瓷磨具 class should also implement the Item and Remove methods, as well as a Count property:

Public Function Item(Key As Variant) As File

` Return an item in the collection.

Set Item = em(Key)

End Function

Public Sub Remove(Key As Variant)

` Remove an item from the collection.

move Key

End Sub

Property 不同的材料对实验机的需求是不1样的Get Count() As Long

` Return the number of items.

Count = unt

End Property

请注意，在这三种方法中，我们省略了错误处理--有些事情你是从来都不应该做的！至少应该包括一个错误处理器，通过使用Err对象的Raise方法来将错误传递、给调用过程。

` Private variable to store path.

Private pstrPath As String

Property Get Path() As String

` Return stored path value.

Path = pstrPath

End Property

Property Let Path(strPath As String)

Dim strFile As String

` C落在镜头表面的灰尘lear the collection.

Set pcolFiles = New Collection

` Make sure there`s a backslash.

If Ri压敏垫片ght(strPath, 1) "\" Then

strPath = strPath "\"

End If

` Get the first file.

strFile = Dir(strPath "*.*", _

vbReadonly Or vbHidden Or vbArchive Or vbSystem)

Do Until Len(strFile) = 0

` Add it to the collection.

Call Add(strPath strFile)

` Get the next file.

strFile = Dir()

Loop

` Save the path.

pstrPath = strPath

End Property

图4 向Collection类添加Path属性。将该属性和类设置为扫描目录并将所找到的每个文件添加到私有Collection对象。