VB.NET: ListView Control

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:

1. 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:
   
   
   
   
2. 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.