MEMBUAT TAMPILAN LISTVIEW

Membuat sistem penggajian dan menyimpan ke list view menggunakan Visual Studio 2008

Desain tampilannya seperti gambar berikut :

dan berikut coding nya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
        nik.Items.Add("004")

        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        buattabel()
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "001" : nama.Text = "Paijo"
            Case "002" : nama.Text = "Udin"
            Case "003" : nama.Text = "Ujang"
            Case "004" : nama.Text = "Budi"
        End Select
    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 = "2000000"
            Case "Staff" : 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" : tunjangan.Text = 0.15 * gaji.Text
            Case "Tidak Menikah" : tunjangan.Text = 0
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click  
    total.Text = Val(gaji.Text) + Val(tunjangan.Text) - Val(pajak.Text)
    End Sub

    Sub buattabel()
        lst.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        lst.Columns.Add("nama", 110, HorizontalAlignment.Center)
        lst.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
        lst.Columns.Add("gaji", 100, HorizontalAlignment.Center)
        lst.Columns.Add("Status", 100, HorizontalAlignment.Center)
        lst.Columns.Add("Tunj. Keluarga", 100, HorizontalAlignment.Center)
        lst.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
        lst.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
        lst.View = View.Details
        lst.GridLines = True
        lst.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim lsv As New ListViewItem
        lsv.Text = nik.Text
        lsv.SubItems.Add(nama.Text)
        lsv.SubItems.Add(jabatan.Text)
        lsv.SubItems.Add(gaji.Text)
        lsv.SubItems.Add(status.Text)
        lsv.SubItems.Add(tunjangan.Text)
        lsv.SubItems.Add(pajak.Text)
        lsv.SubItems.Add(total.Text)
        lst.Items.Add(lsv)
    End Sub

    Private Sub btnsimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan.Text = ""
        pajak.Text = ""
        total.Text = ""
    End Sub

 Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

End Class


 Berikut tampilan ketika digunakan :