ListView SubItems Forecolor 1

[bjd4jc]

I want to set the subitems in my listview control to a color other than black. I have got the ListItem (first column) to be red but I am unable to get the rest to be red.

Here is what I am doing:

Do While Not rsSchedule.EOF
        Set SchedItem = lstSchedule.ListItems.Add(, , rsSchedule("MO_NUMBER"))
        
        SchedItem.SubItems(1) = rsSchedule("SCHED_DATE")
        SchedItem.SubItems(2) = rsSchedule("ORDER_QTY")
        SchedItem.SubItems(3) = rsSchedule("WC_ID")
        
        If rsSchedule("ITEM") = txtXBundle Then
            SchedItem.ForeColor = vbRed
            SchedItem.SubItems(1).ForeColor = vbRed '<<=== Bombs out here.  Error: &quot;Invalid Qualifier&quot;
            SchedItem.SubItems(2).ForeColor = vbRed
            SchedItem.SubItems(3).ForeColor = vbRed
            
        End If
        rsSchedule.MoveNext
    Loop

Any ideas from anyone?

 

[johnwm]

As far as I know, SubItems do not have a forecolor property. If you want full control of text color and back color you could try a Flexgrid
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[bjd4jc]

After doing some more playing I found a way to do this.

Instead of
SchedItem.SubItems(1).Forecolor = vbRed

It should be
SchedItem.ListSubItems(1).ForeColor = vbRed