Listview berwarna di Visual Basic

Listview berwarna di Visual Basic

seringkali kita melihat beberapa aplikasi dengan tampilan yang menarik, salah satunya memberi warna pada grid data, pada tutorial kali ini saya akan membuat litsview berwarna seperti gambar di bawah ini :

Persiapan 

buatlah form1 dengan property sebagai berikut :

Object	Propertis	Keterangan
Form1	Caption	Listview Berwarna
Command1	Caption	Tampilkan
Command2	Caprion	Kosongkan
Label1	Caption	Jumlah
Listview	Name	Listview1
Picturbox	Name	Picturebox1

setelah merubah propertisnya , masukkan source code di bawah ini untuik merubah listviewnya agar bisa berwarna :

Public Sub setwarna(ByVal objList As ListView, ByVal objPic As PictureBox)

    Dim i As Long

    objPic.BackColor = objList.BackColor

    objPic.ScaleMode = vbTwips

    objPic.BorderStyle = vbBSNone

    objPic.AutoRedraw = True

    objPic.Width = objList.Width

    objPic.Height = objList.ListItems(1).Height * (objList.ListItems.Count)

    objPic.ScaleHeight = objList.ListItems.Count

    objPic.ScaleWidth = 1

    objPic.DrawWidth = 1

    objPic.Cls

    For i = 1 To objList.ListItems.Count

       If i Mod 2 = 0 Then

         objPic.Line (0, i - 1)-(1, i), RGB(100, 255, 100), BF 'ganti warnanya caranya ganti angka yang didalam RGB()

       Else

         objPic.Line (0, i - 1)-(1, i), RGB(255, 150, 100), BF 'ganti warnanya caranya ganti angka yang didalam RGB()

       End If

    Next

    objList.Picture = objPic.Image

End Sub

Implementasi

setelah memasukkan code di atas kedalam module atau form, sekarang bagaimana cara menggunakannya ?, 

contoh :

call setwarna("Nama listview","Nama Picturebox")

masukkan kode ini ke dalam tombol Command1 / Tampilkan :

call setwarna(listview1,picturebox1)