Subitems Listview Berwarna Selang Seling

10 views
Pada artikel kali ini admin akan share sedikit trik untuk mempercantik tampilan dari komponen Listview pada Microsoft Visual Basic 6.0 dengan menunjukkan warna pada Subitems Lisview Berwarna Selang Seling
Langkah pertama buatlah sebuah form lalu 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 yakni 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 menciptakan 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 mekanisme 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 lalu 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 pecahan syntak BackgroudSubItems LvStok, vbWhite, &HC0FFC0  ada isyarat warna dan agan-agan dapat merubah isyarat warna tersebut sesuai dengan selera. Sourcode ini dapat didownload di LINK INI secara free dan supaya bermanfaat bagi yang membutuhkannya.
Author: 
    author
    No related post!