WCM Forum - VB Frage...

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