Pemakaian Koleksi pada VB6

Dalam mendevelop sebuah software tentu akan selalu melibatkan banyak data. untuk itu bisa pakai array dan bisa juga pakai koleksi.

bila kesulitan memakai array gunakan saja koleksi dengan koleksi akan mudah dalam pemanggilan kembali data. pemanggilan data dalam koleksi tidaklah begitu sulit, tinggal memasukan key yang disertakannya

Untuk contoh pemakaian koleksi, key dibuat memakai hurup pertama pada data untuk memudahkan dalam pencarian. misal: Merah Putih key MP, Siang malam key SM, Tanam Pohon key TP dan seterusnya ...

ingat Langkahnya adalah :
1. Buka VB6. Pada New File pilih StandardExe lalu klik OK
2. tambahkan textBox pada form1
3. tambahkan commandButton pada form1
4. klik kanan pada form1 pilih View code

Copykan Kode catatan dibawah ini:

'---code

Dim Kol As New Collection
Dim a

Private Sub Command1_Click()
On Error GoTo Euweuh
    a = Kol.Item(Text1.Text)
    MsgBox Text1.Text & " adalah kunci sedang " & a & " adalah Data yang dipanggil "
    Text1.Text = ""
    Exit Sub
Euweuh:
    Text1.Text = ""
    MsgBox "Data tidak ditemukan, silahkan tambah data"
End Sub

Private Sub Form_Load()
    'Pengisian data pada Koleksi
    Text1.Text = ""
    With Kol
        .Add "Merah Putih", "MP" ' "Merah Putih" adalah data, "MP" adalah key
        .Add "Siang Malam", "SM"
        .Add "Tanam Pohon", "TP"
    End With
End Sub

'--- end code

untuk menjalankannya:
1. tekan tombol F5
2. pada textbox masukan MP atau SM atau TP atau apa saja
3. tekan tombol Command1