EuroCent
Klappstuhl 2.0
Gibt es eine Möglichkeit eine Klasse für meine Array-Sammlung zu erstellen?
Meine Arrays sind verschieden und da es sehr viele sind verliert man so dann schnell die Übersicht!
Meine Arrays:
Mein vorhaben ist eben das ich eine Klasse MeineArrays erstellen möchte die ich dann seperat über beispiel mit: MeineArrays(Frak)
Aufrufen kann so das mein Code in meiner Form übersichtlicher bleibt
Gibt es da eine Möglichkeit?
Ein Beispiel wäre eventuell nicht schlecht sofern möglich
PS: Ich hab mehrere Arrays somit kann ich mich nicht auf eine Beschränken
Es sei den jemand weis ein Tipp und kann mir hierzu mehr sagen/erzählen oder ein Beispiel zeigen/geben
MfG
Lenox
Meine Arrays sind verschieden und da es sehr viele sind verliert man so dann schnell die Übersicht!
Meine Arrays:
Code:
Dim KlasseL(0 To 6) As String
Dim KlasseZ(0 To 6) As String
Dim Frak(0 To 2) As String
Dim Magi_Prie_HelmLicht(0 To 1) As String
Dim Heid_Orak_HelmZorn(0 To 1) As String
Frak(0) = "--- Bitte Wählen ---"
Frak(1) = "Allianz des Lichts"
Frak(2) = "Bund des Zorns"
KlasseZ(0) = "Wähle deine Klasse"
KlasseZ(1) = "Heide"
KlasseZ(2) = "Orakel"
KlasseZ(3) = "Krieger"
KlasseZ(4) = "Wächter"
KlasseZ(5) = "Jäger"
KlasseZ(6) = "Assasine"
KlasseL(0) = "Wähle deine Klasse"
KlasseL(1) = "Magier"
KlasseL(2) = "Priester"
KlasseL(3) = "Kämpfer"
KlasseL(4) = "Verteidiger"
KlasseL(5) = "Bogenschütze"
KlasseL(6) = "Waldläufer"
Magi_Prie_HelmLicht(0) = "Bitte Wählen"
Magi_Prie_HelmLicht(1) = "Kupferhelm (LvL: 1)"
Heid_Orak_HelmZorn(0) = "Bitte Wählen"
Heid_Orak_HelmZorn(1) = "Stahlhut (LvL: 1)"
Mein vorhaben ist eben das ich eine Klasse MeineArrays erstellen möchte die ich dann seperat über beispiel mit: MeineArrays(Frak)
Aufrufen kann so das mein Code in meiner Form übersichtlicher bleibt

Gibt es da eine Möglichkeit?
Ein Beispiel wäre eventuell nicht schlecht sofern möglich

PS: Ich hab mehrere Arrays somit kann ich mich nicht auf eine Beschränken

Es sei den jemand weis ein Tipp und kann mir hierzu mehr sagen/erzählen oder ein Beispiel zeigen/geben

MfG
Lenox