Menampilkan list view sederhana dengan Visual Basic

      Kali Ini saya akan sharing tentang visual basic 2008 tepatnya tentang listview.listview biasa digunakan untuk tempat/wadah data dan data disini bisa banyak atau beberapa dalam suatu komponen dan bisa di proses/dijalankan secara keseluruhan.
     jika menggunakan listview data yang ada dapat tertampung dengan catatan project tidak berhenti(ditutup) atau masih berjalan karna jika projectnya berhenti maka data yang ada pada listview akan hilang karna listview sifatnya nonvolatile(tidak permanen).
     Berikut ini contoh Pogram Penggunaan listview Visual Basic 2008
 Sebelumnya desain dulu formnya seperti gambar di bawah ini:

Setelah selesai  kita masuk ke pengkodean.pertama double clik Form kemudian ubah Method menjadi "Declaration" kemudian masukkan jumlah array yang di inginkan.

Public Class Form1

    Sub isitabel()
        Dim list As New ListViewItem
        list.Text = nik.Text
        list.SubItems.Add(nama.Text)
        list.SubItems.Add(jabatan.Text)
        list.SubItems.Add(gaji.Text)
        list.SubItems.Add(status.Text)
        list.SubItems.Add(tunjkel.Text)
        list.SubItems.Add(pajak.Text)
        list.SubItems.Add(total_gaji.Text)

        lv.Items.Add(list)

    End Sub

Untuk Menentukan Kolom 
Sub buattabel()
        lv.Columns.Add("Nik", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        lv.Columns.Add("jabatan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("gaji", 100, HorizontalAlignment.Left)
        lv.Columns.Add("status", 100, HorizontalAlignment.Left)
        lv.Columns.Add("tunjangan keluarga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("pajak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("total gaji", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

untuk menambahkan data pada NIK(clik 2 x combobox):
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staf")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")
        buattabel()

    End Sub

Untuk menyeleksi hasil pemilihan NIK:
    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 = "Oncan"
            Case "002" : nama.Text = "Udin"
            Case "003" : nama.Text = "Ujang"
        End Select
    End Sub

Untuk menseleksi hasil pemilihan Jabatan:
    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

Untuk menseleksi hasil pemilihan Status:
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah" : tunjkel.Text = 0.15 * gaji.Text
            Case "Tidak Menikah" : tunjkel.Text = 0

        End Select
    End Sub

Untuk mengosongkan isian Nik,Nama,Jabatan,Gaji,Status,Tunjangan Keluarga,Pajak dan Total Gaji(klik 2x tombol batal):
    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjkel.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub

Untuk Menampilkan Total Gaji(klik 2 x total gaji):
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        total_gaji.Text = Val(gaji.Text) + Val(tunjkel.Text) - Val(pajak.Text)
    End Sub

Untuk menutup program(klik 2 x tombol keluar):
    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()

    End Sub

Untuk Menyimpan Ke Listview:
    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjkel.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""

    End Sub

Untuk Menghapus semua data yang ada pada Listview:
    Private Sub Hapus_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_all.Click
        lv.Items.Clear()
    End Sub

Untuk menghapus sebagian data yang ada pada Listview:
    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

kemudian akhiri dengan coding "end class" tanpa tanda kutip

    Dan jika sudah selesai makan tampilannya jika di jalankan akan muncul seperti gambar di bawah ini.

 Selamat Mencoba,:D
  Ket:

• Name NIK=nik
• Name Nama= nama
• Name Jabatan=jabatan
• Name Gaji=gaji
• Name Status=status
• Name Tunjangan Keluarga=tunjkel
• Name Pajak=pajak
• Name Total Gaji=total_gaji
• Name Proses=proses
• Name Keluar=keluar
• Name Batal=batal
• Name Simpan Kelistview=simpan
• Name Hapus Sebagian=hapus
• Name Hapus Semia=hapus_All

Untuk backgrounnya bisa di setting sesuai dengan keinginan masing2..

lihat juga  Perulangan Tersarang Dengan Program VB Net