发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10541, 日期: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
作 者 : 甘冀平
这里有几种方法来清空一个集合的内容。
下面的代码按照后进先出的顺序删除掉项目:
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