Aracılığıyla paylaş

Nasıl yapılır: Genel Sınıf Kullanma (Visual Basic)

Tür parametrelerini alan bir sınıf genel sınıf olarak adlandırılır. Genel bir sınıf kullanıyorsanız, bu parametrelerin her biri için bir tür bağımsız değişkeni sağlayarak ondan oluşturulmuş bir sınıf oluşturabilirsiniz. Daha sonra, oluşturulmuş sınıf türünün değişkenini bildirebilir ve oluşturulmuş sınıfın bir örneğini oluşturup bu değişkene atayabilirsiniz.

Sınıflara ek olarak, genel yapıları, arabirimleri, yordamları ve temsilcileri de tanımlayabilir ve kullanabilirsiniz.

Aşağıdaki yordam.NET Framework'te tanımlanan genel bir sınıfı alır ve bu sınıftan bir örnek oluşturur.

Tür parametresi alan bir sınıf kullanmak için

  1. Kaynak dosyanızın başında, ad alanını içeri aktarmak için bir System.Collections.Generic ekleyin. System.Collections.Generic.Queue<T> sınıfına, System.Collections.Queue gibi diğer kuyruk sınıflarından ayırt etmek için tam olarak nitelemenize gerek kalmadan başvurmanızı sağlar.

  2. Nesneyi normal şekilde oluşturun, ancak sınıf adından hemen sonra ekleyin (Of type) .

    Aşağıdaki örnek, farklı veri türlerindeki öğeleri barındıran iki kuyruk nesnesi oluşturmak için aynı sınıfı (System.Collections.Generic.Queue<T>) kullanır. Her kuyruğun sonuna öğe ekler, ardından her kuyruğun önündeki öğeleri kaldırır ve görüntüler.

    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

Ayrıca bakınız

  • Last updated on