Menggunakan Listview Pada VBNET 2008
Postingan berikut ini untuk mempelajari pemakaian komponen Listview pada VB.Net 2008. Listview digunakan untuk meletakkan data data yang telah diinput ke dalam sebuah tempat yang berbentuk tabel (salah satunya 😀 ). Namun data yang terletak di Listview, belum tetap artinya, program berhenti maka datanya akan hilang.
Nah berikut design form nya
Listing Program
Public Class Form1
Sub BuatTable()
LV.Columns.Add(“Kode”, 50, HorizontalAlignment.Center)
LV.Columns.Add(“Nama”, 200, HorizontalAlignment.Left)
LV.Columns.Add(“Harga”, 80, HorizontalAlignment.Right)
LV.GridLines = True
LV.View = View.Details
LV.FullRowSelect = True
End Sub
Sub isiTabel()
Dim lst As New ListViewItem
lst.Text = Kode.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Harga.Text)
LV.Items.Add(lst)
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode.Items.Add(“001”)
Kode.Items.Add(“002”)
Kode.Items.Add(“003”)
Kode.Items.Add(“004”)
Call BuatTable()
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Select Case Kode.Text
Case “001”
Nama.Text = “Televisi”
Harga.Text = 1750000
Case “002”
Nama.Text = “DVD”
Harga.Text = 500000
Case “003”
Nama.Text = “VCD”
Harga.Text = 250000
Case “004”
Nama.Text = “CD”
Harga.Text = 750000
Case Else
Nama.Text = “”
Harga.Text = 0
End Select
End Sub
Sub bersih()
Kode.Text = “”
Nama.Text = “”
Harga.Text = “”
End Sub
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
Call isiTabel()
Call bersih()
End Sub
End Class
Penjelasan
LV.Columns.Add(“Kode”, 50, HorizontalAlignment.Center)
Menambah kolom pada komponen Listview (LV) dengan nama kolom Kode dan lebar 50 sedangkan posisi teks akan rata tengah.
LV.GridLines = True
Akan menampilkan perpotongan baris dan kolom sehingga akan muncul Cell
LV.View = View.Details
Untuk menampilkan Listview berbentuk laporan (nampak semua kolomnya)
LV.FullRowSelect = True
Untuk membuat satu row tersorot penuh saat di click cell listview
Dim lst As New ListViewItem
Mendefinisikan variabel lst sebagai Listviewitem, hal ini karena data tidak bisa langsung masuk ke Listview tersebut, harus melalui sebuah variabel pembantu.
lst.Text = Kode.Text
Menulis text pada Listviewitem di Lst
lst.SubItems.Add(Nama.Text)
Menambahkan sub item di lst dengan isi data dari Nama
LV.Items.Add(lst)
Menambahkan isi variabel lst ke Listview
Hasilnya yaitu