Menerapkan ListView pada VB.Net 2008

Pengunaan ListView pada VB.Net 2008


Langkah pertama,sebagai contoh desain lah form seperti di bawah ini :

Kemudian ketikkan listing programnya seperti berikut ini :

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("nik", 50, HorizontalAlignment.Left)

        LV.Columns.Add("nama", 50, HorizontalAlignment.Left)

        LV.Columns.Add("jabatan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("status", 80, HorizontalAlignment.Left)

        LV.Columns.Add("pajak", 60, HorizontalAlignment.Left)

        LV.Columns.Add("tunjkeluarga", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji", 60, HorizontalAlignment.Left)

        LV.Columns.Add("total", 70, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = nik.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(jabatan.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(tunjkeluarga.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(Gaji.Text)

        Lst.SubItems.Add(total.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        nik.Items.Add("00121")

        nik.Items.Add("00122")

        nik.Items.Add("00123")

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staf")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "00121" : nama.Text = "Aan"

            Case "00122" : nama.Text = "Ela"

            Case "00123" : nama.Text = "Heri"

        End Select

    End Sub

    Private Sub btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        total.Text = Val(Gaji.Text) + Val(tunjkeluarga.Text) - Val(pajak.Text)

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Mandor" : Gaji.Text = 1750000

            Case "Kepala Bagian" : Gaji.Text = 2500000

            Case "Staf" : Gaji.Text = 1250000

        End Select

        pajak.Text = 0.15 * Gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah" : tunjkeluarga.Text = 0.15 * Gaji.Text

            Case "Tidak Menikah :tunjkeluarga = 0"

        End Select

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        IsiTabel()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        status.Text = ""

        tunjkeluarga.Text = ""

        pajak.Text = ""

        Gaji.Text = ""

        total.Text = ""

    End Sub

    Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        status.Text = ""

        tunjkeluarga.Text = ""

        pajak.Text = ""

        Gaji.Text = ""

        total.Text = ""

    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

        LV.Items.Clear()

    End Sub

End Class

Kemudian click debug atau tekan tombol F5




Setelah anda meng-input textbox nya..maka click proses dan tampilannya akan seperti di atas


Kemudian click simpan ke Listview..Maka tampilannya akan seperti di bawah ini : 



Always keep up Ur spirit to try this..don't give up
Selamat Belajar Bahasa Pemograman ya...