Miscellaneous objects array

I have some different custom classes:
ClassA
ClassB
ClassC

If I put their instances into an ObjectArray in this way

ObjectArray.Append(ClassA1) ObjectArray.Append(ClassB1) ObjectArray.Append(ClassC1)

in debug I can inspect the array and each element is correct, but how can I access by code to each element array and its properties?

If I do this:

Dim CA as ClassA CA = ObjectArray(0)

I’ve got an error as:
Expected class ClassA, but got Object

Try…

Dim CA as ClassA
CA = ClassA(ObjectArray(0))

This should cast the object to a ClassA object.

Perfect. It works.

Thank you very much!

Just in case the order in the array is not known, you can check each item type:

for i as integer = 0 to ObjectArray.Ubound select case ObjectArray(i) case isa ClassA print str(i)+" is a ClassA" outputval= ClassA(ObjectArray(i)).cap case isa ClassB outputval= ClassB(ObjectArray(i)).cbp print str(i)+" is a CB" end select print "Value "+str(outputval) next

[quote=232151:@Lee Badham]Just in case the order in the array is not known, you can check each item type:

for i as integer = 0 to ObjectArray.Ubound select case ObjectArray(i) case isa ClassA print str(i)+" is a ClassA" outputval= ClassA(ObjectArray(i)).cap case isa ClassB outputval= ClassB(ObjectArray(i)).cbp print str(i)+" is a CB" end select print "Value "+str(outputval) next [/quote]

Thank you for your tip