VB Frage...

[Sonic]

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:

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