Listview Forecolor (RESOLVED)

[Stiletto]

For some reason, VB dont want to color an item in a my listview
I was this code

.ListItems.Item(i).ListSubItems.Item(1).ForeColor = &HC000&
.ListItems.Item(i).ListSubItems.Item(2).ForeColor = &HC000&
.ListItems.Item(i).ListSubItems.Item(3).ForeColor = &HC000&
.ListItems.Item(i).ListSubItems.Item(4).ForeColor = &HC000&
.ListItems.Item(i).ListSubItems.Item(5).ForeColor = &HC000&

Strange thing is that he changes the color of the 3rd Culomn (item(2)), but does not change the others.
what the hell is going on?

[MartinLiss]

It works for me.

[Stiletto]

My stupid comp. I'll restart

[MartinLiss]

As I said, your code works for me but here's a sub that I use in one of my apps. Does it make a difference for you?

Public Sub ColorListviewRow(lv As ListView, RowNbr As Long, RowColor As OLE_COLOR)
'***************************************************************************
'Purpose: Color a ListView Row
'Inputs : lv - The ListView
'         RowNbr - The index of the row to be colored
'         RowColor - The color to color it
'Outputs:
'***************************************************************************
    
    Dim itmX As ListItem
    Dim lvSI As ListSubItem
    Dim intIndex As Integer
    
    On Error GoTo ErrorRoutine
    
    Set itmX = lv.ListItems(RowNbr)
    itmX.ForeColor = RowColor
    For intIndex = 1 To lv.ColumnHeaders.Count - 1
        Set lvSI = itmX.ListSubItems(intIndex)
        lvSI.ForeColor = RowColor
    Next
 
    Set itmX = Nothing
    Set lvSI = Nothing
    
    Exit Sub
 
ErrorRoutine:
 
    MsgBox Err.Description
 
End Sub

[MartinLiss]

This doesn't affect you, but it's interesting that I found one time that if I want to color a row I can't use the vbBlue constant. I found that I needed to use 16711681 instead which is just one off of vbBlue's value.

[Stiletto]

Nope. Still he colorize what he want to.
Ive notice that if i have an error and than i resume the program, or if i have Msgbox, or any kind of delay, at the second time it will color the whole row.

[Stiletto]

Originally posted by MartinLiss
This doesn't affect you, but it's interesting that I found one time that if I want to color a row I can't use the vbBlue constant. I found that I needed to use 16711681 instead which is just one off of vbBlue's value.

Cool.
Thing is that he colors some items in that row, but not all of them. (I'm using Green)

[Stiletto]

Stupid VB. You need to refresh the list.

.Rerfesh