VB辅导:Objptr函数使用方法和用途

ObjPtr函数最简单但最有效的用途之一是提供关键字，以便在集合中快速查找对象。假设有一个对象集合，它没有可以用作关键字从集合中检索的属性。然后，我们可以使用ObjPtr函数的返回值作为集合中的关键字:
dim col as new collection
dimobjas CPerson
'创建一个新的CPerson对象，并将其添加到集合
set obj = new CPerson
obj . name = " John Smith "
col . add obj，CSTR (ObjPtr (obj))'关键字必须是字符串
因为任何对象都有一个明确的ObjPtr 我们可以方便快捷地从集合中检索:
'删除集合中的对象
col . remove sctr(objptr(obj))
这种技术可以应用于任何类型的对象，包括VB中的窗体和控件，以及外部对象。