Tambah Icon Ke Subitems (Listview)

6 views
Pembahasan yang berafiliasi 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, contohnya icon berjenis kelamin pria berbeda dengan icon berjenis kelamin wanita pada data yang tampila di ListView. 

Buat databasenya terlebih dahulu memakai 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 tanggapan inputkan beberap data ke dalam tabel diatas, kemudian bedakan ada beberapa yang pria dan ada yang perempuan. Kemudian simpan disuatu folder terserah agan-agan mau taruh di path mana, yang terang nantinya project dari Ms. Visual Basic akan disimpan di dalam folder yang sama dengan database tersebut.

Buka Ms. Visual Basic – StandarEXE kemudian buatlah form kemudian tambahkan juga satu buah modul dan tambahkan komponen-komponen pendukung ibarat ListView dan ImageList ke dalam form yang telah dibentuk ibarat 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 pria dan perempuan


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


Setelah itu kemudian klik OK, kemudian 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 mekanisme Form_Load dengan syntak Call Koneksi sehabis itu kita buat juga sub gres 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 sehabis itu simpan dan RUN/F5. Klik tombol Tampil maka data akan tampil dengan icon yang berbeda antara jenis kelamin pria dan perempuan.



Untuk sourcodenya dapat didownload di LINK INI secara free, agar bermanfaat
Author: 
    author
    No related post!