[VB6] Colorare riga di testo in un elenco in ListView

[maximum]

Salve, volevo porvi il seguente quesito:

tramite il seguente codice, dopo avere popolato una listview, coloro di rosso ed in grassetto, gli item della prima colonna:

For i = 1 To lsvForn.ListItems.Count
    lsvForn.ListItems.Item(i).ForeColor = RGB(255, 0, 0)
    lsvForn.ListItems.Item(i).Bold = True
Next

Vorrei però applicare la stessa formattazione sulle altre 3 colonne che seguono, come implemento il codice sopra riportato?

Grazie anticipatamente.

[MdE2005]

Ok, te intendi i subitems..Fai così:

Dim LI As ListItem
For i = 1 To lsvforn.ListItems.Count
    Set LI = lsvforn.ListItems(i)
        With LI
        .ForeColor = RGB(255, 0, 0)
        .Bold = True
        .ListSubItems(1).Bold = True
        .ListSubItems(1).ForeColor = RGB(255, 0, 0)
        .ListSubItems(2).Bold = True
        .ListSubItems(2).ForeColor = RGB(255, 0, 0)
        .ListSubItems(3).Bold = True
        .ListSubItems(3).ForeColor = RGB(255, 0, 0)
        End With
Next

Chiaramente visto che sapevi il numero esatto di colonne oltre alla prima ho scritto così, altrimenti oppure se il numero di colonne era grande sarei ricorso ad un ciclo for/next..

Ciao

[maximum]

Ottimo!

Ti ringrazio.

[MdE2005]

Niente..

ciao

[Artemio]

scusate la domanda fuoriluogo... ma una listbox può avere delle colonne???

[Boolean]

non è compito mio fartelo notare... ma credo sarebbe stato il caso di aprire un nuovo thread... come da regolamento

Booolean