Cara: Menggunakan Kelas Generik (Visual Basic)

  • Artikel

Kelas yang mengambil parameter jenis disebut kelas generik. Jika Anda menggunakan kelas generik, Anda dapat membuat kelas yang dibangun darinya dengan menyediakan argumen jenis untuk setiap parameter ini. Anda kemudian dapat mendeklarasikan variabel jenis kelas yang dibangun, dan Anda dapat membuat instans kelas yang dibangun dan menetapkannya ke variabel tersebut.

Selain kelas, Anda juga dapat menentukan dan menggunakan struktur, antarmuka, prosedur, dan delegasi generik.

Prosedur berikut mengambil kelas generik yang ditentukan dalam .NET Framework dan membuat instans darinya.

Untuk menggunakan kelas yang mengambil parameter jenis

  1. Di awal file sumber Anda, sertakan Pernyataan Impor (.NET Namespace and Type) untuk mengimpor namespace layanan System.Collections.Generic. Ini memungkinkan Anda untuk merujuk ke kelas System.Collections.Generic.Queue<T> tanpa harus sepenuhnya memenuhi syarat untuk membedakannya dari kelas antrean lain seperti System.Collections.Queue.

  2. Membuat objek dengan cara normal, tetapi tambahkan segera (Of type) setelah nama kelas.

    Contoh berikut menggunakan kelas yang sama (System.Collections.Generic.Queue<T>) untuk membuat dua objek antrean yang menyimpan item dari jenis data yang berbeda. Ini menambahkan item ke akhir setiap antrean lalu menghapus dan menampilkan item dari depan setiap antrean.

    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

Lihat juga