Project Menggunakan ListView Pada Visual Basic 6.0 Tanpa Database !!!

Listview merupakan salah satu componen selain dbgrid yang berfungsi sebagai menampilkan data yang telah di inputkan oleh user sesuai dengan intruksi yang di berikan. Kemudian di tambah beberapa instruksi lainnya agar user dapat menyimpan, menghapus serta mengedit data yang telah mereka input ke database. Tetapi tutorial kali ini membahas tentang menyimpan data hanya sebatas penyimpanan pada RAM saja, maksud nya setelah aplikasi ditutup kemudian di buka lagi data yang sebelum nya telah di input akan hilang. jika ingin membuat aplikasi menggunakan database bisa membaca Project Vb 6 Menggunakan MS. Access Dan Listview.

Ada Dua Macam Model ListView : 

1. Microsoft Windows Common Controls 5.0
2. Microsoft Windows Common Controls 6.0

Perbedaannya : 

Ada banyak perbedaan diantar kedua versi, tetapi hal yang paling mendasar yaitu pada versi 5.0 tidak bisa menggunakan grid, Item tidak bisa di pilih atau di seleksi. sedangkan di versi 6.0 Listview menggunakan grid seperti di microsoft excel dan Item bisa di seleksi atau di pilih secara keseluruhan maupun single.

Listview biasanya tidak ada pada toolbox settingan bawaan, jadi harus di tambah dahulu, caranya :

Klik kanan pada kolom toolbox >> Components >> Control >> Centang Pada Microsoft Windows Common Controls versi 5.0 atau 6.0 >> Apply >> Ok.
Source Code :

Dim lst As ListItem
Private Sub cmbnik_Click()
Select Case cmbnik
    Case "K1011": txtnama.Text = "Diki"
    Case "K2012": txtnama.Text = "Wahyudi"
    Case "K2021": txtnama.Text = "Romi"
    Case "K1022": txtnama.Text = "Ardian"
    End Select
End Sub

Private Sub cmdbersih_Click()
ListView1.ListItems.Clear
End Sub

Private Sub CmdHapus_Click()
cmbnik.Text = "-- Pilih --"
    txtnama.Text = ""
    txtgaji.Text = ""
    cmbnik.SetFocus
End Sub

Private Sub cmdpil_Click()
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub

Private Sub cmdsimpan_Click()
Set lst = ListView1.ListItems.Add(, , cmbnik.Text)
    lst.SubItems(1) = txtnama.Text
    lst.SubItems(2) = "Rp." & txtgaji.Text
End Sub

Private Sub Form_Activate()
CmdHapus_Click
End Sub

Private Sub Form_Load()
    cmbnik.AddItem "K1011"
    cmbnik.AddItem "K2012"
    cmbnik.AddItem "K2021"
    cmbnik.AddItem "K1022"
    ListView1.ColumnHeaders.Add , , "NIK", 1000
    ListView1.ColumnHeaders.Add , , "Nama", 2000
    ListView1.ColumnHeaders.Add , , "Gaji", 2100
    ListView1.GridLines = True
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport

End Sub

Penjelasan :

1. Pada Cmbnik kita menggunakan Case, dimana fungsi nya sama dengan if, hanya lebih mudah dan simple. 
2. Kemudian Form load yaitu menampilkan item yang akan di tambilkan pada saat form di load.Colomn Headers Dengan Caption NIK dan lebar kolom header nya 1000, garis line dan select nya di aktifkan dengan perintah true. sebagai contoh lihat gambar di atas. 
3. Pada CmdSimpan akan menampilkan hasil inputan berdasarkan NIK di kolom listview. 
4. Setelah Form ditutup semua hasil inputan akan hilang di karenakan ini hanya sementara tanpa menggunakan database.