Unterschliedliche Objekttypen in Varaint-Array
10.01.2020 16:27:51
Christian
ich möchte ein Variant-Array als Liste für eine Combobox verwenden. In Spalte 1 des Array stehen Namen (Strings) und in Spalte 2 befinden sich Objekte einer eigenen Klasse. Je nach Auswahl in der ComboBox möchte ich mit dem entsprechenden Objekt aus Spalte 2 des Array weiterarbeiten.
Beispiel:
Dim myArray(1 to 1, 1 to 2) as Variant
Dim myObjekt as myKlasse
Dim myObjektNachAuswahl as myKlasse
Set myObjekt = New myKlasse
myArray(1,1) = "Test"
Set myArray(1,2) = myObjekt
ComboBox.List = myArray
Bis hier klappt alles.
Nun wähle ich zur Laufzeit in der Combobox einen Wert an und bei nachfolgender Code-Zeile bekomme ich einen Fehler:
Set myObjektNachAuswahl = ComboBox.List(ComboBox.Listindex,1)
Warum?
Danke euch!