发表评论(0)作者：不详, 平台：VB6.0+Win98, 阅读：10383, 日期：2000-10-21

软件工程篇－清空集合内容的几种方法

作 者 : 甘冀平




　　 这里有几种方法来清空一个集合的内容。


　　 下面的代码按照后进先出的顺序删除掉项目：

    Do While col.Count > 0
        col.Remove col.Count
    Loop

　　 下面的代码按照先进先出的顺序删除掉项目，速度上会快许多：

    Do While col.Count > 0
        col.Remove 1
    Loop

　　 但是，最快的还是设置集合为Nothing的方法：

    Dim col As Collection

        注释： Allocate the collection and use it.
        Set col = New Collection
            :
        注释： Destroy the collection.
        Set col = Nothing

　　 使用数组替代集合

　　 数组比集合占有更少的内存，并且运行更快。如果不需要使用集合的关键字搜索、延伸简易性以及其他功能，请使用数组完成同样的数据存储。

　　 创建全局属性

　　 你知道在.BAS模块中能创建属性程序吗？程序的其他部分能象对待其他变量一样处理这个“属性”，而且属性程序能执行错误检查、一次设定等等功能。

　　 保护模块中的数据

　　 在BAS模块中使用私用变量后，模块的子程序能够访问它们，但是程序的其他部分就不能存取它们了。

    Private hidden_data As Integer

    Public Function GetData() As Integer
        GetData = hidden_data * 2
    End Function