Public Class TextTabelle
    Private Const AnzahlSprachen = 16
    Private T As Hashtable
 
 
    Public Sub New()
        T = New Hashtable
    End Sub
 
 
    Public Sub AddReferenzText(ByVal Referenztext As String)
        Dim a(AnzahlSprachen) As String
 
        For i As Integer = 0 To AnzahlSprachen
            a(i) = ""
        Next
        If Not T.ContainsKey(Referenztext.GetHashCode) Then
            a(0) = Referenztext
            T.Add(Referenztext.GetHashCode, a)
        Else
            MessageBox.Show("Referenztext '" & Referenztext & "' in Liste schon" & _
              "vorhanden!")
        End If
 
    End Sub
 
    Public Sub AddSprachText(ByVal Referenztext As String, ByVal Sprachtext As _
      String, ByVal Sprachnummer As Integer)
        Dim a(AnzahlSprachen) As String
 
        If Sprachnummer > AnzahlSprachen Then
            MessageBox.Show("Sprachnummer zu groß!")
        Else
            If Not T.ContainsKey(Referenztext.GetHashCode) Then
                MessageBox.Show("Referenztext '" & Referenztext & "' in Liste" & _
                  "nicht vorhanden!")
            Else
                a = T.Item(Referenztext.GetHashCode)
                a(Sprachnummer) = Sprachtext
                T.Item(Referenztext.GetHashCode) = a
            End If
        End If
    End Sub
Enc Class