Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Objekte mit VB.NET automatisch in großer Zahl generieren (instan

laura4 / 3 Antworten / Baumansicht Nickles

Hallo. Ich möchte aus der bereits erstellten Klasse "CMitarbeiter" eine große Anzahl von Mitarbeiter-Objekten erzeugen (z. B. 100). Die nachfolgende Programmzeilen funktionieren jedoch nicht:


For i = 1 To 100


Dim obMitarbeiter(i) As New CMitarbeiter()


Next


Wer kann mir mit dem Problem weiterhelfen und den entsprechenden Code mitteilen? Könnte es evtl. über einen Konstruktor gehen? Wie lautet der Code?


Vielen Dank im Voraus!

bei Antwort benachrichtigen
HADU laura4 „Objekte mit VB.NET automatisch in großer Zahl generieren (instan“
Optionen

Hi,
z. B. so:

DIM colMitarbeiterListe as Collection = new Collection
DIM obMitarbeiter as Object
For i = 1 to 100
obMitarbeiter = new Object
colMitarbeiter.Add(obMitarbeiter)
Next

Was ist denn das eigentliche Ziel dieser Aktion?

Gruß HADU

bei Antwort benachrichtigen
laura4 HADU „Objekte mit VB.NET automatisch in großer Zahl generieren (instan“
Optionen

Das eigentliche Ziel ist die Lösung einer Musteraufgabe (für die Schule), welche als Java-Aufgabe konzipiert wurde (und da auch teilweise der Lösungscode vorliegt). Es sollten in einer Listbox Mitarbeiter ausgewählt werden, die nicht aus einer Datenbank (sonst wäre der Zeitrahmen für die Aufgabe nicht passend) eingelesen wurden, sondern eben "künstlich" generiert wurden.

Danke für die Lösung! Muss sie aber noch testen.

bei Antwort benachrichtigen
d-oli laura4 „Objekte mit VB.NET automatisch in großer Zahl generieren (instan“
Optionen

Hi

Bin kein VB-Crack. Aber ich denke was du da machst ist hundert mal ein Array anlegen ... das kann nicht funktionieren.
Willst du ein dynamisches Datenfeld oder willst du den Index festlegen ...?
Ich denke es müsste ungefähr so aussehen:

'Festgelegter Index
Dim obMitarbeiter( 1 To 100 ) As New CMitarbeiter()

oder

'Dynamisches Datenfeld
Dim obMitarbeiter() As New obMitarbeiter()
For i = 1 To 100
   ReDim obMitarbeiter( i )
   obMitarbeiter( i ) = ...
Next

Aber eben, ich bin kein VB-Crack deshalb alles ohne Gewähr ;-)

Gruss, d-oli

Konstruktive Kritik zeichnet sich dadurch aus, dass sie höflich, nützlich und sachlich ist.
bei Antwort benachrichtigen