Mengenal ListView dalam Visual Basic

ListView dalam Visual Basic biasanya digunakan untuk menampilkan data, baik dari
database maupun bukan, ke dalam tabel dalam bentuk list atau grid. Dengan
listview, data yang ada dapat diurutkan, ditambahkan maupun dihapus dengan
mudah dari list.
Menambahkan ListView
Untuk menambahkan listview ke dalam form (project), carilah icon pada toolbox.
Jika icon tersebut belum ada di toolbox, maka Anda harus menambahkan /
mengaktifkan komponen Microsoft Common Controls. Klik kanan pada toolbox dan
pilih sub menu Components… Lihat gambar berikut ini :
Mengatur Header ListView
Untuk mengatur header listview, perhatikan contoh berikut ini :

.. .. ..
Dim ch As ColumnHeader
Set ch = ListView1.ColumnHeaders.Add(, , "No.", 600)
Set ch = ListView1.ColumnHeaders.Add(, , "Kode", 900, vbCenter)
Set ch = ListView1.ColumnHeaders.Add(, , "Nama Barang", 2300,
vbLeftJustify)
Set ch = ListView1.ColumnHeaders.Add(, , "Byk", 900, vbCenter)
Set ch = ListView1.ColumnHeaders.Add(, , "Harga Satuan", 1500,
vbRightJustify)
Set ch = ListView1.ColumnHeaders.Add(, , "Jumlah", 1580,
vbRightJustify)
ListView1.GridLines = True
.. .. ..
Program di atas akan mengatur header listview menjadi 7 kolom, yaitu kolom No,
Kode, Nama Barang, Byk, Harga Satuan dan Jumlah. Anda juga dapat mengatur
perataan dan lebar masing-masing kolom. Tampilan listview yang dihasilkan dari
program di atas kurang lebih sebagai berikut :
Menambahkan Record (Item) ke dalam ListView
Untuk menambahkan Record (Item) ke dalam listview, perhatikan contoh sebagai
berikut :
Dim lv As ListItem
Set lv = lsttampil.ListItems.Add(, , 1)
lv.SubItems(1) = "B001"
lv.SubItems(2) = "Buku Tulis"
lv.SubItems(3) = "30"
lv.SubItems(4) = "2100"
lv.SubItems(5) = "63000"
.. .. ..
Program di atas akan menambahkan sebuah record (item) baru ke dalam listview.