Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

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


Filed under: VS2008,

8 Responses

  1. saidi says:

    ma ada bayang2 dilayar pass buka blog ini

  2. Alhamdulillah,bertambah lagi ilmu saya tentang VB Net 2008,
    stelah dr kampus tadi pak..
    terimakasih banyak ya Pak,,Thank’s.

  3. Pak, listview susah2 gampang,, habis gampangnya tinggal susahnya…

  4. Mau nanya ni pak ……

    gman ya pak caranya menampilkan hasil Program VB NET
    Yg telah selesai,,,agar bisa di terbitkan di blog saya pak…..

    makasih ya sbelumnya …..

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

%d bloggers like this: