Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Alternative row color for ListView
- Thread starter redav
- Start date
Here you go!!
Should work, just pass a different color to change
'Function Call
adjustListviewColour lvExceptions, lSelectedItem, vbBlue
Public Function adjustListviewColour(objListview As ListView, lIndex As Long, lColour As Long)
Dim i As Integer
Dim lLvColumnCount As Long
lLvColumnCount = objListview.ColumnHeaders.Count - 1
objListview.ListItems.Item(lIndex).ForeColor = lColour
For i = 1 To lLvColumnCount
Dim lsitem As ObjectobjListview.SelectedItem.ListSubItems.Item(i).ForeColor = lColour
Next
objListview.Refresh
End Function
Should work, just pass a different color to change
'Function Call
adjustListviewColour lvExceptions, lSelectedItem, vbBlue
Public Function adjustListviewColour(objListview As ListView, lIndex As Long, lColour As Long)
Dim i As Integer
Dim lLvColumnCount As Long
lLvColumnCount = objListview.ColumnHeaders.Count - 1
objListview.ListItems.Item(lIndex).ForeColor = lColour
For i = 1 To lLvColumnCount
Dim lsitem As ObjectobjListview.SelectedItem.ListSubItems.Item(i).ForeColor = lColour
Next
objListview.Refresh
End Function
- Thread starter
- #3
- Status
