Coloring Listview - resolved

[cx323]

ListView1.ListItems.Add(, , "element1").ForeColor = vbRed

When i use this code to try to color a listview item it colors it blue no matter what forecolor i set it to. What am i doing wrong? Thanks

[RhinoBull]

Try this instead:

Private Sub Form_Load()
'==============================
Dim i%, j%
Dim ITM As MSComctlLib.ListItem
Dim LSI As MSComctlLib.ListSubItem
 
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport
    
    With ListView1.ColumnHeaders
        .Add , , "List Item"
        For j = 1 To 3
            .Add , , "Sub Item " & j
        Next j
    End With
    
    For i = 1 To 10
        Set ITM = ListView1.ListItems.Add(, , "Listitem " & i)
        ITM.ForeColor = IIf(i Mod 2 = 0, vbRed, vbBlue)
        For j = 1 To 3
            ITM.ListSubItems.Add , , "Subitem " & i & j
            ITM.ListSubItems(j).ForeColor = ITM.ForeColor
        Next j
    Next
 
End Sub

[cx323]

thanks i have it working now

[RhinoBull]

Great!