Ich habe einen 1-Dimensionalen Array erstellt. In diesen fülle ich Collections, deren Struktur durch Klassen bestimmt wird.
Bsp:
Dim MyArray(5) as Collection
Dim Test as New clsCol (Klasse mit Get- und Let-Properties)
Füllen des Arrays:
Test.Name = „Hallo“
Test.Pic = „C:\Hallo.jpg“
Test.X = 34
Test.Y = 45
MyArray(3).Add = Test, Test.Name
Auf die Werte zugreifen:
Da ich nicht jedesmal den Namen benötige, übergebe ich, welchen Wert ich benötige. (Auswahl durch Select Case)
Ich möchte jedoch dieses Select Case eliminieren.
Bsp:
Function GetItem(intArr As Integer, strWitch as string, objClassEntry ) as Variant
GetItem = MyArray(intArr).Item(strWitch). objClassEntry (Oder so Ähnlich…)
End Function
Anstatt:
Function GetItem(intArr As Integer, strWitch as string, strClassEntry as string) as Variant
Select Case strClassEntry
case „Name“
GetItem = MyArray(intArr).Item(strWitch).Name
Case „Pic“
GetItem = MyArray(intArr).Item(strWitch).Pic
End Select
End Function