Originariamente inviato da oregon
Gli item e i subitem hanno la proprieta' ForeColor

ListView1.ListItems(1).ForeColor = vbRed
ListView1.ListItems(1).ListSubItems(1).ForeColor = vbRed
Ciao Oregon...
Ho visto questa cosa molto intressante e ti chiedo come posso colorare una riga intera di rosso se i primi 6 caratteri dellla variabile REC sono uguali a "APERTO" altrimenti, tipo un else, colorare di blu tutte le altre righe...
grazie
Ti post un pezzo di codice:
Do Until EOF(1)

Line Input #1, REC
Set itmX = ListView1.ListItems.Add(, , Left(REC, 6))
itmX.SubItems(1) = UCase(Trim(Mid(REC, 11, 10)))
itmX.SubItems(2) = UCase(Trim(Mid(REC, 22, 8)))
itmX.SubItems(3) = UCase(Trim(Mid(REC, 44, 7)))
itmX.SubItems(4) = UCase(Trim(Mid(REC, 67, 11)))
itmX.SubItems(5) = UCase(Trim(Mid(REC, 78, 7)))
RIGA = RIGA + 1
'DoEvents
Label2.Caption = RIGA

Loop