正在阅读：VB超频快餐，让我一次用个够！（七）VB超频快餐，让我一次用个够！（七）

2004-02-14 09:34 出处：eNet学院作者：听风责任编辑：pjl

使用Objptr函数快速查找集合中的对象 ObjPtr函数的一个最简单但是却最有效的用途就是提供快速寻找集合中对象的关键字。假设有一个对象集合，它没有可以当做关键字以从集合中取回的属性。那么，我们就可以使用ObjPtr函数的返回值作为集合中的关键字： Dim col As New Collection Dim obj As CPerson ’创建新的CPerson对象，并添加到集合中 Set obj = New CPerson obj.Name = "John Smith" col.Add obj, CStr(ObjPtr(obj)) ’关键字必须是字符串因为任何对象都有一个明确的ObjPtr数值，而且它是不变的，所以，我们可以容易地、快速地从集合中取回它： ’ 删除集合中的对象 col.Remove CStr(ObjPtr(obj)) 这个技巧可以适用于任何类型的对象，包括VB中的表单和控件，以及外部对象。使用ObjPtr检测2个对象变量是否指向同一对象判断2个对象变量释放指向同一对象的方法是使用Is操作符，代码如下： If obj1 Is obj2 Then ... 但当2个对象是同一类型时，或者指向同一个二级接口时，我们就可以利用ObjPtr（）函数对代码进行一些优化处理： If ObjPtr(obj1) = ObjPtr(obj2) Then ... 后者的执行速度将比前种方法快40%多。但是请注意，2种方法原本就是很有效率的，只有在时间要求非常严格的上百成千次的循环中，才会体现出这种差别。