Megosztás a következőn keresztül:

Útmutató: Általános osztály használata (Visual Basic)

A típusparamétereket használó osztályokatáltalános osztálynak nevezzük. Ha általános osztályt használ, létrehozhat belőle egy létrehozott osztályt úgy, hogy mindegyik paraméterhez megad egy típusargumentumot . Ezután deklarálhat egy létrehozott osztálytípusú változót, és létrehozhatja a létrehozott osztály egy példányát, és hozzárendelheti ahhoz a változóhoz.

Az osztályok mellett általános struktúrákat, interfészeket, eljárásokat és meghatalmazottakat is definiálhat és használhat.

Az alábbi eljárás a .NET-keretrendszerben definiált általános osztályt veszi igénybe, és létrehoz egy példányt belőle.

Típusparamétert használó osztály használata

  1. A forrásfájl elején adjon meg egy Import Utasítást (.NET-névtér és típus) a System.Collections.Generic névtér importálásához. Ez lehetővé teszi, hogy az System.Collections.Generic.Queue<T> osztályra anélkül hivatkozzon, hogy teljes mértékben minősíteni kellene, hogy megkülönböztesse azt más várólistás osztályoktól, például System.Collections.Queue.

  2. Hozza létre az objektumot a szokásos módon, de közvetlenül az osztály neve után adja hozzá (Of type) .

    Az alábbi példa ugyanazt az osztályt (System.Collections.Generic.Queue<T>) használja két olyan üzenetsor-objektum létrehozásához, amelyek különböző adattípusú elemeket tárolnak. Elemeket ad hozzá az egyes üzenetsorok végéhez, majd eltávolítja és megjeleníti az elemeket az egyes üzenetsorok elejéről.

    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

Lásd még

  • Last updated on