Subitems Listview Berwarna Selang Seling
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
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
LvStok.ListItems.Clear
Dim nNO As LongSet 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