Subitems Listview Berwarna Selang Seling

Pada artikel kali ini admin akan share sedikit trik untuk mempercantik tampilan dari komponen Listview pada Microsoft Visual Basic 6.0 dengan memberikan warna pada Subitems Lisview Berwarna Selang Seling

Langkah pertama buatlah sebuah form kemudian tambahkan juga sebuah Module tetapi jangan lupa kita tambahkan juga komponen Microsoft Windows Common Controls 6.0 (SP6) untuk Listview dan komponen komponen pendukung untuk koneksi ke databaase yaitu Microsoft ActiveX Data Objects 2.8 Library selanjutnya copykan syntak dibawah ini ke module tersebut

Public CN As New ADODB.connection
Public xRs As New ADODB.Recordset
Public ListV As MSComctlLib.ListItem

Sub connection()
Dim strCon As String
Set CN = New ADODB.connection
CN.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=localhost;DATABASE=dbsisretail;UID=root;PWD=;PORT=3306"
End Sub

Didalam artikel kali ini dan sebelumnya fungsi dari modul untuk mempublikasikan variabel-variabel dan membuat sub koneksi ke database, database kali ini yang admin gunakan MySQL Server. Tambahkan komponen LIstview dan satu buah CommanButton pada form diatas, double klik pada form pilih prosedur Form_Load dan copykan syntak dibawah ini

Call connection
LvStok.ColumnHeaders.Clear
LvStok.ColumnHeaders.Add , , "No", 900
LvStok.ColumnHeaders.Add , , "Kode Barang", 2000
LvStok.ColumnHeaders.Add , , "Nama Barang", 3000
LvStok.ColumnHeaders.Add , , "Qty", 800
LvStok.ColumnHeaders.Add , , "Harga Modal", 1600
LvStok.ColumnHeaders.Add , , "Harga Jual", 1600
LvStok.ColumnHeaders.Add , , "Kategori", 1600
LvStok.ColumnHeaders.Add , , "Satuan", 1600

Buat juga sub function untuk membentuk warna selang seling pada Lisview

Private Sub BackgroudSubItems(lv As ListView, _
ByVal BackColorOne As OLE_COLOR, _
ByVal BackColorTwo As OLE_COLOR)

Dim lH As Long
Dim lSM As Byte
Dim picAlt As PictureBox
With lv
   If .View = lvwReport And .ListItems.Count Then
       Set picAlt = Me.Controls.Add("VB.PictureBox", "picAlt")
       lSM = .Parent.ScaleMode
       .Parent.ScaleMode = vbTwips
       .PictureAlignment = lvwTile
       lH = .ListItems(1).Height
       With picAlt
       .BackColor = BackColorOne
       .AutoRedraw = True
       .Height = lH * 2
       .BorderStyle = 0
       .Width = 10 * Screen.TwipsPerPixelX
       picAlt.Line (0, lH)-(.ScaleWidth, lH * 2), BackColorTwo, BF
       Set lv.Picture = .Image
       End With
      
       Set picAlt = Nothing
       Controls.Remove "picAlt"
       lv.Parent.ScaleMode = lSM
    End If
End With
End Sub

Pada CommanButton kemudian double klik dan copykan syntak dibawah ini, fungsi dari syntak dibawah ini untuk menampilkan data dari tabel yang ada didatabase dan pemanggilan sub function warna selang seling yang ditujukan ke Listview

LvStok.ListItems.Clear
Dim nNO As Long

Set xRs = New ADODB.Recordset
xRs.Open "Select * from STOK", CN, 1, 3
nNO = 1
Do Until xRs.EOF
With LvStok.ListItems
    Set lst = LvStok.ListItems.Add(, , nNO)
    lst.ListSubItems.Add , , xRs.Fields!IDBARANG
    lst.ListSubItems.Add , , xRs.Fields!NMBARANG
    lst.ListSubItems.Add , , xRs.Fields!JUMBRG
    lst.ListSubItems.Add , , xRs.Fields!HRGBELI
    lst.ListSubItems.Add , , xRs.Fields!HRGJUAL
    lst.ListSubItems.Add , , xRs.Fields!KATEG
    lst.ListSubItems.Add , , xRs.Fields!SATUAN
    xRs.MoveNext
    nNO = nNO + 1
End With
Loop
BackgroudSubItems LvStok, vbWhite, &HC0FFC0 

Pada penggalan syntak BackgroudSubItems LvStok, vbWhite, &HC0FFC0  ada kode warna dan agan-agan bisa merubah kode warna tersebut sesuai dengan selera. Sourcode ini bisa didownload di LINK INI secara free dan semoga bermanfaat bagi yang membutuhkannya.