Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Dec 4, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Use Objptr function to quickly locate an object in a Collection

One of the simplest and most effective uses of the ObjPtr function is to provide a key for quickly locating an object in a Collection. Let's suppose you have a collection of objects that don't have a property that can be used as a key to retrieve them in a collection. You can work around this by using the value returned by the ObjPtr function as the key in the collection:

Dim col As New Collection
Dim obj As CPerson

' create a new CPerson object and add it to the collection
Set obj = New CPerson
obj.Name = "John Smith"
col.Add obj, CStr(ObjPtr(obj))  'the key must be a string
Because any object has a distinct ObjPtr value, and this value is guaranteed immutable, it is very easily to quickly retrieve it in the collection:

' remove the object from the collection
col.Remove CStr(ObjPtr(obj))
The same trick can be applied to any type of objects, including VB forms and controls, and external objects.
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date