Penggunaan Listview Pada Visual Basic Net 2008

Listview digunakan untuk menampung beberapa/banyak data sekaligus ke dalam suatu komponen dan bisa di proses secara keseluruhan.

Dengan menggunakan listview data bisa tertampung semua. Namun kelemahan listview yaitu jika project berhenti maka data data yang di listview akan hilang, karna sifat listveiw ini non volatile.

berikut program Penggunaan Listview Pada Visual Basic Net 2008

Design form berikut ini
2

Ketikkan listing program berikut ini

Public Class Form1

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
‘Untuk Keluar dari program
End
End Sub

Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
‘Membersihkan isian NIP, Nama, Golongan dan Gaji
NIP.Text = “”
Nama.Text = “”
Golongan.Text = “”
Gaji.Text = “”
‘Untuk memfocuskan NIP
NIP.Focus()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Mengisikan data ke Combo NIP
NIP.Items.Add(“4021001”)
NIP.Items.Add(“4021002”)
NIP.Items.Add(“4021003”)
NIP.Items.Add(“4021004”)

‘Mengisikan data ke Combo Golongan
Golongan.Items.Add(“IIIA”)
Golongan.Items.Add(“IIIB”)
Golongan.Items.Add(“IIIC”)
Golongan.Items.Add(“IVA”)

Call BuatTabel() ‘ untuk memaggil sub BuatTabel()
End Sub

Sub BuatTabel()
‘membuat colom pada listview
LV.Columns.Add(“NIP”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Golongan”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Gaji Rp.”, 90, HorizontalAlignment.Right)
‘menjadikan listview detail artinnya nampak sebagai baris dan kolom
LV.View = View.Details
‘menampilkan garis sebagai pembatas baris dan kolom
LV.GridLines = True
‘untuk membuat seluruh satu baris tersorot saat di klik
LV.FullRowSelect = True
End Sub

Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan NIP
Select Case NIP.Text
Case “4021001” : Nama.Text = “Aldyan”
Case “4021002” : Nama.Text = “Mesran”
Case “4021003” : Nama.Text = “Surya Darma Nasution”
Case “4021004” : Nama.Text = “Azanuddin”
Case Else
Nama.Text = “” ‘Apabila tidak ada yang sama
End Select
End Sub

Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan Golongan
Select Case Golongan.Text
Case “IIIA” : Gaji.Text = 1500000
Case “IIIB” : Gaji.Text = 1750000
Case “IIIC” : Gaji.Text = 1900000
Case “IVA” : Gaji.Text = 2500000
Case Else
Gaji.Text = 0 ‘Apabila tidak ada yang sama
End Select
End Sub

Private Sub btnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsi.Click
‘mendefinisikan variabel listviewitem dengan nama lst
Dim lst As New ListViewItem

‘memasukkan NIP ke teks listview
lst.Text = NIP.Text

‘memasukkan Nama, Golongan dan Gaji sebagai Subitems dari listview
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Golongan.Text)
lst.SubItems.Add(Gaji.Text)
‘memasukkan ke listviewitem di listview
LV.Items.Add(lst)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘menghapus semua isi yang ada di listview
LV.Items.Clear()
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
‘menghapus isian listview yang tersorot
LV.Items.Remove(LV.SelectedItems(0))
End Sub

End Class

Demikianlah artikel Penggunaan Listview Pada Visual Basic Net 2008, semoga dapat membantu anda dalam belajar bahasa pemrograman.

Tag : Penggunaan Listview Pada Visual Basic Net 2008, Komponen listview, belajar bahasa pemrograman, bahasa pemrograman , bahasa pemrograman visual basic net, tempat download program

Bila bermanfaat silahkan share Penggunaan Listview Pada Visual Basic Net 2008 ini dengan teman anda, Terima kasih sebelumnya

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s