coba yang ini
Option Explicit
Private Sub Command1_Click()
Dim ar As Integer, item As ListItem
ListView1.View = lvwReport
With ListView1
With .ColumnHeaders
.Add , , "header"
End With
End With
For ar = 0 To 10
With ListView1
Set item = .ListItems.Add
With item
.Text = "baris " & ar
Select Case ar
Case 1, 4, 6
.ForeColor = &HFF
Case 2, 5, 9
.ForeColor = &HFF0000
End Select
End With
End With
Next ar
End Sub
Regards,
Arlis
On 4/18/06, MUHAMMAD IRFAN <[EMAIL PROTECTED]> wrote:
> Bisa gak listview diberi warna-warni pad baris-baris tertentu.
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
