Share via

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

  • Makale

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 System.Collections.Generic için bir Imports Deyimi (.NET Ad Alanı ve Türü) ekleyin. Bu, sınıfı gibi System.Collections.Queuediğer kuyruk sınıflarından ayırt etmek için tam olarak nitelemenize gerek kalmadan sınıfına başvurmanızı System.Collections.Generic.Queue<T> 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 ve ardından öğeleri her kuyruğun önünden 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 bkz.