Bagikan melalui

Cara: Menggunakan Kelas Generik (Visual Basic)

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 masing-masing 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 menerima parameter tipe

  1. Di awal file sumber Anda, sertakan Pernyataan Impor (.NET Namespace and Type) untuk mengimpor System.Collections.Generic namespace. Ini memungkinkan Anda untuk merujuk ke kelas System.Collections.Generic.Queue<T> tanpa harus memberikan definisi lengkap, sehingga dapat memisahkannya dari kelas antrean lain seperti System.Collections.Queue.

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

    Contoh berikut menggunakan kelas yang sama (System.Collections.Generic.Queue<T>) untuk membuat dua objek antrean yang menyimpan item dari berbagai jenis data. 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

  • Last updated on