Hi!
Also meines wissens gibt es keine Möglichkeit direkt ein array so zu deklarieren das man es mit einem Key ansprechen kann.
Du kannst entweder eine Collection mit einer Klasse verwenden. Ich finde das aber etwas umständlich. (und weiss die syntax auch nichtmehr
)
Oder du machst es so wie ich es immer mache. Du machst einen neuen Typ der einen Key und ein oder mehrere Werte hat. Machst mit diesem Typ ein array. Und eine Globlae Variable die deine Items mitzählt.Dann brauchst du zum setzen und lesen mit dem Key nurnoch 2 kleine Funktionen.
Beispiel:
Code:
Private Type MyArrayType
Value As String
key As String
End Type
Dim MyArray() As MyArrayType
Dim MyArrayCount As Long
Public Function SetMyArray(key As String, Value As String)
MyArrayCount = MyArrayCount + 1 'Die anzahl der einträge um eins erhöhen
ReDim Preserve MyArray(MyArrayCount - 1) 'Das array um eins vergrößern -1 deswegen damit in myarraycount immer die richtiger anzahl steht
'Key und value zuweisen
MyArray(MyArrayCount - 1).key = key
MyArray(MyArrayCount - 1).Value = Value
End Function
Public Function GetMyArray(key As String) As String
Dim i As Long
'Gehe alle einträge durch
For i = 0 To MyArrayCount - 1
If MyArray(i).key = key Then
'Wenn ein entsprechender Eintrag gefunden wurde dann gib ihn zurück
GetMyArray = MyArray(i).Value
Exit Function
End If
Next i
'Wenn das Programm hierher kommt wurde kein Eintrag mit ensprechendem key gefunden
End Function
Ich habe dir auch ein VB6 Beispiel Projekt angehängt das das ganze ein bisschen mehr veranschaulicht.
Ich hoffe das hilft dir weiter!
lg