ListView Dalam VisualBasic

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 ListViewke dalam form (project), cari tool yang bernama listview pada toolbox. Jika komponen 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 ListViewListView, 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. kamujuga 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. Tampilan ListViewkurang lebih menjadi sebagai berikut :




Ok Segitu dulu penjelasannya, semoga bermanfaat...