Eka Ardianto

Kamis, 16 Mei 2013

Penggunaan Listview

Listview sering membantu dalam pemrograman visual basic. Dengan adanya listview kita mampu menampilkan beberapa data sekaligus dalam suatu objek yang di kenal listview.

Penggunaan listview ternyata sangat mudah, lihat saja program berikut ini :)

Design penggunaan listview pada pemrograman visual basic


penggunaan listview pada pemrograman visual basic
Listing program penggunaan listview pada pemrograman visual basic.


Dim lst As ListItem

Private Sub cmdbersihkan_Click()
ListView1.ListItems.Clear
End Sub

Private Sub cmdhapus_Click()
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
Tahun.Text = ""
NPM.SetFocus
End Sub

Private Sub cmdhapuspilih_Click()
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub

Private Sub cmdsimpan_Click()
Set lst = LV.ListItems.Add(, , NPM.Text)
lst.SubItems(1) = Nama.Text
lst.SubItems(2) = Jenjang.Text
lst.SubItems(3) = Jurusan.Text
lst.SubItems(4) = Tahun.Text
Call cmdhapus_Click
End Sub

Private Sub Form_Activate()
cmdhapus_Click
End Sub

Sub BuatTabel()
With LV
.ColumnHeaders.Add , , "NPM", 1000
.ColumnHeaders.Add , , "Nama", 2500
.ColumnHeaders.Add , , "Jenjang", 900
.ColumnHeaders.Add , , "Jurusan", 1700
.ColumnHeaders.Add , , "Tahun", 1000
.GridLines = True
.FullRowSelect = True
.View = lvwReport
End With
End Sub

Private Sub Form_Load()
NPM.AddItem "1211030"
NPM.AddItem "1111010"
NPM.AddItem "1102111"
NPM.AddItem "1211101"

Call BuatTabel
For i = 2005 To 2013
Tahun.AddItem i
Next i

Jenjang.AddItem "S1"
Jenjang.AddItem "D3"
Jurusan.AddItem "Teknik Informatika"
Jurusan.AddItem "Manajemen Informatika"
End Sub

Private Sub NPM_Click()
Select Case NPM
Case "1211030": Nama.Text = "Dian Sostro"
Case "1111010": Nama.Text = "Susi Andriyani"
Case "1102111": Nama.Text = "Arista Triani"
Case "1211101": Nama.Text = "Aldyan"
End Select
End Sub



Berikut hasil program dengan menggunakan listview pada pemrograman visual basic.


Demikianlah pembahasan listview ini, semoga bermanfaat.


Tag : Penggunaan Listview Pada Pemrograman Visual Basic, pemrograman visual basic, listview pada visual basic.

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

Tidak ada komentar:

Posting Komentar