list view

Public Class Form1 Sub buatTabel() LV.Columns.Add("NIK", 150, HorizontalAlignment.Center) LV.Columns.Add("NAMA KARYAWAN", 150, HorizontalAlignment.Center)

LV.Columns.Add("JABATAN", 150, HorizontalAlignment.Center) LV.Columns.Add("GAJI POKOK", 150, HorizontalAlignment.Center) LV.Columns.Add("STATUS", 150, HorizontalAlignment.Center) LV.Columns.Add("TUNJANGAN keluarga", 150, HorizontalAlignment.Center) LV.Columns.Add("PAJAK", 150, HorizontalAlignment.Center) LV.Columns.Add("TOTAL GAJI", 150, HorizontalAlignment.Center) 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(gaji.Text) Lst.SubItems.Add(status.Text) Lst.SubItems.Add(tunjangankeluarga.Text) Lst.SubItems.Add(pajak.Text) Lst.SubItems.Add(totalgaji.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("001") nik.Items.Add("002") nik.Items.Add("003") jabatan.Items.Add("Mandor") jabatan.Items.Add("Kepala Bagian") jabatan.Items.Add("Staff") status.Items.Add("Menikah") status.Items.Add("Tidak Menikah") 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 = 17500000 Case "Kepala Bagian" : gaji.Text = 2500000 Case "Staff" : gaji.Text = 1250000 End Select pajak.Text = 0.15 * gaji.Text 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 = "Cantika" Case "002" : nama.Text = "Omega" Case "003" : nama.Text = "Nova" End Select 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" : tunjangankeluarga.Text = 0.15 * gaji.Text Case "Tidak Menikah" : tunjangankeluarga.Text = 0 End Select End Sub Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click totalgaji.Text = Val(gaji.Text) + Val(tunjangankeluarga.Text) - Val(pajak.Text) End Sub Private Sub btnsimpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpn.Click IsiTabel() nik.Text = "" nama.Text = "" jabatan.Text = "" gaji.Text = "" status.Text = "" tunjangankeluarga.Text = "" pajak.Text = "" totalgaji.Text = "" End Sub Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click lv.Items.Clear() End Sub Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click lv.Items.Remove(lv.SelectedItems(0)) End Sub End Class