Mewarnai Tulisan pada ListItem Listview Berdasarkan Kondisi Tertentu VB6

Untuk mewarnai pada komponen listivew sudah admin bahas pada tutorial sebelumnya, akan tetapi pada tutorial tersebut untuk mewarnai latar dari listitems listview dan kali ini kita akan coba mewarnai tulisannya berdasarkan kondisi tertentu. Database yang akan digunakan versi Ms. Access 2000 dengan nama database Perpus dengan tabel Anggota dengan beberapa field : NAMA, STATUS. Setelah databsae selesai dibuat untuk selanjutnya inputkan beberapa data pada tabel menyesuaikan dengan filed2nya, untuk field status, menggunakan pilihan Aktif dan Non Aktif.

Buka Microsoft Visual Basic 6.0 - StandartExe dan tambahkan beberapa komponen seperti dibawah ini

1. Microsoft ActiveX Data Objects 2.8 Library (sebagai koneksi ke database)

2. Microsoft Windows Common Controls 6.0 (SP6) - Untuk komponen Listview

3. Module

Copykan coding Visual Basic 6.0 (VB6) berikut ini ke dalam module sebagai deklarasi dan sub koneksi ke database

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

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

Selanjutnya tambahkan Listview pada form, kemudian double klik pada form dan copykan coding Visual Basic 6.0 (VB6) untuk memanggil data prosedur koneksi ke database dan untuk menampilkan data dari database ke komponen listview dibawah ini 

Private Sub Form_Load()
Call Koneksi
Call Cari
End Sub
Sub Cari()
        Dim LI As ListItem
        Me.Lv.ColumnHeaders.Clear
        Me.Lv.ListItems.Clear
        
        Me.Lv.View = lvwReport
        Me.Lv.Sorted = False

        Me.Lv.ColumnHeaders.Add , , "Nama", Me.Lv.Width \ 2
        Me.Lv.ColumnHeaders.Add , , "Status", Me.Lv.Width \ 2
       
        Dim AnggotaCari As New ADODB.Recordset
        Set AnggotaCari = New ADODB.Recordset
        AnggotaCari.Open "Select * From ANGGOTA", CN, 1, 2
           If AnggotaCari.RecordCount = 0 Then
              Me.Lv.ListItems.Clear
           Else
                      AnggotaCari.MoveFirst
                While Not AnggotaCari.EOF
                      Set LI = Me.Lv.ListItems.Add(, , AnggotaCari.Fields!NAMA)
                          LI.SubItems(1) = AnggotaCari.Fields!Status
                      AnggotaCari.MoveNext
                Wend

            'MEWARNAI TULISAN BERDASARKAN KONDISI KODE JURNAL
            Dim nI, nB
            For nI = 1 To Lv.ListItems.Count
            If Lv.ListItems(nI).SubItems(1) = "Aktif" Then
               Lv.ListItems(nI).ForeColor = vbBlue
               For nB = 1 To Lv.ListItems(nI).ListSubItems.Count
                   Lv.ListItems(nI).ListSubItems(nB).ForeColor = vbBlue
               Next nB
            Else
               Lv.ListItems(nI).ForeColor = vbRed
               For nB = 1 To Lv.ListItems(nI).ListSubItems.Count
                   Lv.ListItems(nI).ListSubItems(nB).ForeColor = vbRed
               Next nB
            End If
            Next nI
            Lv.Refresh
            End If
End Sub

Setelah semua coding Visual Basic 6.0 (VB6) selesai dicopy, simpan dan coba RUN/F5 maka tampilan diatas akan seperti gambar dibawah dengan kondisi data yang aktif tulisan akan berwarna biru dan yang tidak aktif akan berwarna merah

LINK DOWNLOAD

Mewarnai Tulisan pada ListItem Listview Berdasarkan Kondisi Tertentu VB6