Tambah Icon Ke Subitems (ListView)

Pembahasan yang berhubungan dengan komponen ListView telah diuraikan dibeberapa artikel sebelumnya oleh admin, tetapi kali ini sedikit berbeda. Data yang ditampilkan pada komponen ListView akan dibedakan dengan menambahkan icon, misalnya icon berjenis kelamin laki-laki berbeda dengan icon berjenis kelamin perempuan pada data yang tampila di ListView. 

Buat databasenya terlebih dahulu menggunakan Ms. Access 2000 dengan nama DBase kemudian tabel DOSEN untuk struktur field pada tabel dosen sebagai berikut

Field Name	Data Type	Field Size
NIDN	Text	255
NAMA	Text	255
JK	Text	10

Setelah selesai inputkan beberap data ke dalam tabel diatas, kemudian bedakan ada beberapa yang laki-laki dan ada yang perempuan. Kemudian simpan disuatu folder terserah agan-agan mau taruh di path mana, yang jelas nantinya project dari Ms. Visual Basic akan disimpan di dalam folder yang sama dengan database tersebut.

Buka Ms. Visual Basic - StandarEXE lalu buatlah form kemudian tambahkan juga satu buah modul dan tambahkan komponen-komponen pendukung seperti ListView dan ImageList ke dalam form yang telah dibuat seperti gambar dibawha ini

Klik kana pada komponen ImageList kemudian pilih Proerties maka akan keluar jendela Property Page dan pilihlah 2 buah icon yang ada di PC agan yang nantinya untuk membedakan jenis kelamin laki-laki dan perempuan

Jika telah selesai langkah selanjutnya yaitu klik kanan pada ListView kemudian pilih menu properties akan keluar jendela Properties Page kemudian pilih tab Image List pada Frame Icon Image List pilih pada combobox small komponen ImageList seperti gambar yang ada kotak biru dibawah ini

Setelah itu kemudian klik OK, lalu copy syntak koneksi ke database ke module yang telah kita buat diawal

Public CN As New ADODB.Connection
Public RsDosen As New ADODB.Recordset

Sub Koneksi()
If CN.State Then
   CN.Close
   CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBase.mdb;Persist Security Info=False"
   CN.CursorLocation = adUseClient
Else
   CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBase.mdb;Persist Security Info=False"
   CN.CursorLocation = adUseClient
End If
End Sub

Selanjutnya panggil Sub Koneksi pada prosedur Form_Load dengan syntak Call Koneksi setelah itu kita buat juga sub baru dengan nama Sub BooksDosen untuk menampikan data dengan ListView, syntaknya dibawah ini

Sub BooksDosen()
Dim LI As ListItem
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ListItems.Clear

Me.ListView1.View = lvwReport
Me.ListView1.Sorted = False
Me.ListView1.ColumnHeaders.Add , , "NIDN", 1500
Me.ListView1.ColumnHeaders.Add , , "Nama Dosen", 2000
Me.ListView1.ColumnHeaders.Add , , "J. Kelamin", 2000

Set RsDosen = New ADODB.Recordset
RsDosen.Open "Select * From DOSEN", CN, 1, 2
If RsDosen.RecordCount = 0 Then
   Me.ListView1.ListItems.Clear
Else
   RsDosen.MoveFirst
   While Not RsDosen.EOF
   If RsDosen.Fields!JK = "Pria" Then
     Set LI = Me.ListView1.ListItems.Add(, , RsDosen.Fields!NIDN, , 2)
   Else
     Set LI = Me.ListView1.ListItems.Add(, , RsDosen.Fields!NIDN, , 1)
   End If
       LI.SubItems(1) = RsDosen.Fields!NAMA
       LI.SubItems(2) = RsDosen.Fields!JK
   RsDosen.MoveNext
   Wend
End If
End Sub

Double klik pada Tombol Tampil dan panggil sub menampilkan data dosen dengan syntak Call BooksDosen setelah itu simpan dan RUN/F5. Klik tombol Tampil maka data akan tampil dengan icon yang berbeda antara jenis kelamin laki-laki dan perempuan.

Untuk sourcodenya bisa didownload di LINK INI secara free, semoga bermanfaat