Penggunaan Listview Pada Pemrograman Visual Basic

Senin, 29 April 2013 | 09:21 WIB | Dibaca : 3603 kali | Kategori : Prog Visual Basic
Penggunaan Listview Pada Pemrograman Visual Basic

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.

Penggunaan 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 berita ini bermanfaat silahkan share Penggunaan Listview Pada Pemrograman Visual Basic ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Penggunaan Listview Pada Pemrograman Visual Basic

Anda berada di halaman Penggunaan Listview Pada Pemrograman Visual Basic, dan telah membaca artikel Penggunaan Listview Pada Pemrograman Visual Basic. Artikel Penggunaan Listview Pada Pemrograman Visual Basic bisa anda peroleh pada halaman http://www.mesran.web.id/berita-625-penggunaan-listview-pada-pemrograman-visual-basic.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Penggunaan Listview Pada Pemrograman Visual Basic sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id