Buat kamu yang ingin menggunakan listview pada VB.Net
2008,berikut langkah-langkah yang harus diperhatikan..
Yang pertama,buatlah desain form nya terlebih dahulu seperti di bawah ini :
Kemudian ketik listing programnya seperti di bawah 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("00221")
nik.Items.Add("00222")
nik.Items.Add("00223")
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
"00221" : nama.Text = "Nita"
Case
"00222" : nama.Text = "Doli"
Case
"00223" : nama.Text = "Adi"
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(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 btnclear_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnclear.Click
LV.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Setelah itu klik debug atau tekan F5,
Kemudian isi data yang ada di combobox,lalu klik proses maka
tampilannya akan seperti dibawah ini :
Kemudian klik simpan ,maka
tampilannya berubah,dan jadi seperti ini :
Selamat Mencoba,,
Tidak ada komentar:
Posting Komentar