Loop through your own class? 1

[iamareplicant]

Experts,

I need to be able to loop thru a class that i have created and match the class's property to a value in my Access db (dont ask why i am doing this - it would too long a post).

Is is possible to loop thru a self-defined class?

Something like:

...dim prop as SomethingProperty
...dim MyClass as SelfDefinedClass

for each prop in MyClass

debug.print prop.name(?)

next

Weird? Yes.

But can it be done, and if so, how?

TIA,

JBG

 

[SBerthold]

'Set Project Reference to "TypeLib Information"

Dim IInfo   As InterfaceInfo
Dim MInfo   As MemberInfo
Dim MyClass As Class1

Set MyClass = New Class1

Set IInfo = TLI.InterfaceInfoFromObject(MyClass)

For Each MInfo In IInfo.Members
    If MInfo.InvokeKind = INVOKE_PROPERTYGET Then Debug.Print MInfo
Next

 

[SBerthold]

Oh, to get the property Get return value you can use:

Debug.? CallByName(Class1,MInfo.Name,VbGet)

 

[iamareplicant]

Thank you very much. I needed this code something fierce.