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 :D). 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

.

Artikel Terbaru

---

• Mahasiswa STMIK Budi Darma Melakukan Kunjungan Ke Pusat UKM Fakultas Ekonomi UISU
• Kemeriahan Entrepreneur Bazar Day 2019 STMIK Budi Darma
• Pegadaian Bekerjasama dengan STMIK Budi Darma Melangsungkan Kuliah Umum Bertemakan The Gade talks about DIGITALPRENEURSHIP
• STMIK Budi Darma Selenggarakan Workshop Penulisan Buku ber ISBN Dengan Harga Terjangkau Plus Penulisan Jurnal Bereputasi
• 450 Peserta Mengikuti Seminar Nasional Sains dan Teknologi Informasi (SENSASI) 2018 di STMIK Budi Darma

Filed under: VS2008, VS2008