VB: Variablennamen bzw Label-Namen dynamisch vergeben
 

Hallo!

Ich habe folgendes Problem:

Ich habe eine Klasse Namens Aktie erstellt und davon 15 Objekte instanziert. Nun möchte ich Werte aus eine Db den Objekten und labels zuweisen.

Mein Codes sieht so aus:

Do While datareader.Read()
Aktie1.Name = datareader("Name")
Aktie1.Logo = datareader("Logo")
Aktie1.Beschreibung = datareader("Beschreibung")
Aktie1.Rating = datareader("Rating")
Loop
lbl_Aktie1_Name.Text = Aktie1.Name
lbl_Aktie1_Logo.Text = Aktie1.Logo
lbl_Aktie1_Beschreibung.Text = Aktie1.Beschreibung
lbl_Aktie1_Rating.Text = Aktie1.Rating

byt_Counter += 1
myConnection.Close()
Loop While (byt_Counter <= 15)

Das Problem ist, das ich irgendwie erreichen möchte, dass Aktie1 weitergezählt wird: also Aktie2, Aktie3, Aktie4 usw.

Wie kann ich das realisieren?

ReDim

Ähm

Redim ändert doch die Größe eines Arrays, oder? Ich hab doch gar kein Array. Könntest du das vielleicht ein bisschen ausführen?

Eben. Du möchtest statt 15 statischer Objekte ein Array verwenden. Dafür sind sie da.

Erstmal - vielen Dank dass du mir weiterhilfst. Leider bin ich immer noch zu dumm...

Das Problem ist, dass ich jetzt nicht weiss, wie man das Objekt instanziert.

Dim Aktie(1) as New Aktie

funktioniert logischerweise nicht. Wie instanziere ich dass??

Also theoretisch müssts so gehen:

Dim AktienArray() as Object 'bzw. as Aktie

redim AktienArray(15) 'oder welche Anzahl auch immer

Und dann:
set AktienArray(0) = new Aktie

Noch nie probiert ein Array mit Objekten etc. zu machen - aber ich denke so bzw. so ähnlich sollte es funktionieren.

Btw: natürlich darf die Variable nicht den gleichen Namen wie das Objekt/die Klasse haben. Nur so als Erinnerung.... ;)

Vielen Dank euch beiden, ihr habt mir wirklich geholfen! Normalerweise erarbeite ich mir solche sachen schon selbst, aber ich steh ein bisschen unter Termindruck und war schon am verzweifeln.

Vielen Danke noch einmal!!!