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

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