Saya akan contohkan penggunaan ListView Berwarna. Sudah banyak yang memberi contoh di situs2 terkemuka baik di indonesia maupun milik orang "asing"
![](http://photos1.blogger.com/blogger/7678/802/1600/biggrin.gif)
![](http://photos1.blogger.com/blogger/7678/802/1600/wink.gif)
Contoh ListView nanti :
Source Code :
'Buatlah form baru
'Klik Project-->components-->Microsoft Windows Commont control 6.0 (SP6)
'Perhatikan kotak Toolbox, pilih ListView
'Perhatikan kotak Toolbox, pilih Picture
'Buat Sub seperti dibawah ini,
'Klo ingin menggunakan tinggal memanggil sub tersebut.
Private Sub color(Color1 As OLE_COLOR, Color2 As OLE_COLOR)
If ListView.ListItems.Count > 0 Then
ListView.PictureAlignment = lvwTile
Picture.Width = ListView.Width
Picture.AutoRedraw = True
Picture.Height = 2 * ListView.ListItems(1).Height + 30
Picture.Line (0, 0)-(Picture.ScaleWidth, (Picture.Height)), Color1, BF
Picture.Line (0, (Picture.Height - (Picture.Height / 2)))-(Picture.ScaleWidth, (Picture.Height)), Color2, BF
Set ListView.Picture = Picture.Image
end if
End Sub
Private Sub Form_Load()
call color (&H00FFFFFF& , &H00C0E0FF&)
End Sub
Semoga Bermanfaat.
![](http://photos1.blogger.com/blogger/7678/802/1600/cool.gif)
Tidak ada komentar:
Posting Komentar