Control ListView digunakan untuk menampilkan daftar (list) item-item tertentu. Jika digabungkan dengan control TreeView, maka kita bisa membuat tampilan seperti windows explorer.
ListView dapat menampilkan item dengan icon, kita dapat menambah ataupun menghapus item yang ada di dalamnya. Pada control ini kita bisa menambahkan juga checkbox disamping item serta dapat melakukan multiple select.
Contoh penggunaan ListView control:
- Menambahkan itemlist dengan program (saat run time)
Design UI
Code:
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load
Dim ListItem1 As ListViewItem
ListItem1 = ListView1.Items.Add("Merah")
Dim ListItem2 As ListViewItem
ListItem2 = ListView1.Items.Add("Kuning")
Dim ListItem3 As ListViewItem
ListItem3 = ListView1.Items.Add("Hijau")
Dim ListItem4 As ListViewItem
ListItem4 = ListView1.Items.Add("Biru")
ListView1.View = View.LargeIcon
End Sub
Runtime:
- Membuat ListView dengan tampilan kolom
Design UI:
Code:
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load
'Mengatur teks pada button
Button1.Text = "Tampilkan item terpilih!"
'mengatur properti
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
'menambahkan header kolom
ListView1.Columns.Add("Nama Produk", 100)
ListView1.Columns.Add("Harga", 70)
ListView1.Columns.Add("Qty", 50)
'menambahkan item
Dim arr(3) As String
Dim itm As ListViewItem
'item pertama
arr(0) = "Pensil"
arr(1) = "5000"
arr(2) = "20"
itm = New ListViewItem(arr)
ListView1.Items.Add(itm)
'item kedua
arr(0) = "Buku"
arr(1) = "8000"
arr(2) = "12"
itm = New ListViewItem(arr)
ListView1.Items.Add(itm)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim strProduk As String
Dim strHarga As String
Dim strQty As String
'abaikan jika tidak ada item terpilih
If ListView1.SelectedItems.Count = 0 Then Exit Sub
strProduk = ListView1.SelectedItems.Item(0).SubItems(0).Text
strHarga = ListView1.SelectedItems.Item(0).SubItems(1).Text
strQty = ListView1.SelectedItems.Item(0).SubItems(2).Text
MsgBox(strProduk & " , " & strHarga & " , " & strQty)
End Sub
Runtime:
Click here if you like this article.
1 Comments
Bu gimana kalo kita mau nampili data dari database tapi hanya satu field saja dan ditampilkan ke banyak item/ banyak kolum(datagrid).
Contohnya gini.
Kita punya tabel daftar menu nama field(id,nama,harga,image) nah kita ingin menampilkan ke listview/datagrid hanya satu field(image) tapi dilistview/datagrid kita punya 4 item/4 kolum dan ditampilkan semua dalam kolum tersebut tapi hasil nya dari field image saja.
Terima kasih..