Check af object type med VB6
Jeg har en collection, som jeg hælder objecter af typen clsTabel ind i, men nu er det naturligt i programmet også i ny og næ at hælde objecter af typen clsLib ind.Førhen har jeg så gjort følgende, når jeg tog dem ud igen:
Dim varTables As Variant
Dim objTables As clsTable
For Each varTables In clsTabel.colParents
Set objTables = varTables
....
....
Nu skal jeg så have tilføjet et type check. Hvordan gør jeg det?
Min tænkte psodu kode:
Dim varTables As Variant
Dim objTables As clsTable
Dim objLib As clsLib
For Each varTables In clsTabel.colParents
If varTables.type = clsTable then
Set objTables = varTables
elseif varTables.type = clsLib then
Set objLib = varTables
....
....
