Menggunakan Listview Pada Visual Basic 6

Untuk memasukkan data ke dalam listview ternyata sangat mudah, lihat saja programnya berikut ini :

Design Form menggunakan listview pada Visual Basic 6


Listing program Form menggunakan listview pada Visual Basic 6
Dim lst As ListItem

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

Private Sub cmdhapus_Click()
    NIK.Text = ""
    Nama.Text = ""
    Gaji.Text = ""
    NIK.SetFocus
End Sub

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

Private Sub cmdsimpan_Click()
    Set lst = ListView1.ListItems.Add(, , NIK.Text)
    lst.SubItems(1) = Nama.Text
    lst.SubItems(2) = Gaji.Text
End Sub

Private Sub Form_Activate()
    cmdhapus_Click
End Sub

Private Sub Form_Load()
    NIK.AddItem "K1011"
    NIK.AddItem "K2012"
    NIK.AddItem "K2021"
    NIK.AddItem "K1022"
   
    ' Untuk membuat listview
    ListView1.ColumnHeaders.Add , , "NIK", 1000
    ListView1.ColumnHeaders.Add , , "Nama", 3000
    ListView1.ColumnHeaders.Add , , "Gaji", 1000
    ListView1.GridLines = True
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport
End Sub

Private Sub NIK_Click()
    Select Case NIK
    Case "K1011": Nama.Text = "Dian"
    Case "K2012": Nama.Text = "Susi"
    Case "K2021": Nama.Text = "Arista"
    Case "K1022": Nama.Text = "Aldyan"
    End Select
End Sub

Berikut hasil menggunakan listview pada Visual Basic 6

Demikian program menggunakan listview pada Visual Basic , happy programming