Freigeben über

Vorgehensweise: Verwenden einer generischen Klasse (Visual Basic)

Eine Klasse, die Typparameter akzeptiert, wird als generische Klasse bezeichnet. Wenn Sie eine generische Klasse verwenden, können Sie eine konstruierte Klasse daraus generieren, indem Sie ein Typargument für jeden dieser Parameter angeben. Anschließend können Sie eine Variable des konstruierten Klassentyps deklarieren, eine Instanz der konstruierten Klasse erstellen und sie dieser Variablen zuweisen.

Zusätzlich zu Klassen können Sie auch generische Strukturen, Schnittstellen, Prozeduren und Stellvertretungen definieren und verwenden.

Die folgende Prozedur verwendet eine generische Klasse, die in .NET Framework definiert ist, und erstellt eine Instanz daraus.

So nutzen Sie eine Klasse, die einen Typparameter akzeptiert

  1. Schließen Sie am Anfang der Quelldatei eine Imports-Anweisung (.NET-Namespace und Typ) ein, um den System.Collections.Generic Namespace zu importieren. Auf diese Weise können Sie auf die System.Collections.Generic.Queue<T>-Klasse verweisen, ohne sie vollständig qualifizieren zu müssen, um sie von anderen Warteschlangenklassen wie System.Collections.Queue zu unterscheiden.

  2. Erstellen Sie das Objekt auf normale Weise, fügen Sie es aber unmittelbar hinter dem Klassennamen hinzu (Of type) .

    Im folgenden Beispiel wird dieselbe Klasse (System.Collections.Generic.Queue<T>) verwendet, um zwei Warteschlangenobjekte zu erstellen, die Elemente verschiedener Datentypen enthalten. Am Ende jeder Warteschlange werden Elemente hinzugefügt und anschließend Elemente von der Vorderseite jeder Warteschlange entfernt und angezeigt.

    Public Sub usequeue()
  Dim queueDouble As New System.Collections.Generic.Queue(Of Double)
  Dim queueString As New System.Collections.Generic.Queue(Of String)
  queueDouble.Enqueue(1.1)
  queueDouble.Enqueue(2.2)
  queueDouble.Enqueue(3.3)
  queueDouble.Enqueue(4.4)
  queueString.Enqueue("First string of three")
  queueString.Enqueue("Second string of three")
  queueString.Enqueue("Third string of three")
  Dim s As String = "Queue of Double items (reported length " &
      CStr(queueDouble.Count) & "):"
  For i As Integer = 1 To queueDouble.Count
    s &= vbCrLf & CStr(queueDouble.Dequeue())
  Next i
  s &= vbCrLf & "Queue of String items (reported length " &
      CStr(queueString.Count) & "):"
  For i As Integer = 1 To queueString.Count
    s &= vbCrLf & queueString.Dequeue()
  Next i
  MsgBox(s)
End Sub

Siehe auch