02 April 2014

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.


1 comments:

Dita Marsal said...

Slmat mlm bu rani,
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..