[VB6]Colori righe listbox

[Stefanik]

Ciao. Sapete se e come è possibile avere righe di diverso colore in una listbox, a secondo di ciò che inserisco, oppure se esistono altri controlli che fanno ciò?

Grazie.

[Mabi]

Il ListBox non offre questa possibilità.
In alternativa puoi utilizzare un ListView.
Guarda questo esempio:

Dim Cont1 As Byte
Dim StrTemp As String
Dim NumTemp As Byte
Dim Colore As ColorConstants

LV.BackColor = &H80C0FF
LV.ListItems.Clear
LV.ColumnHeaders.Clear
LV.View = lvwReport
LV.ColumnHeaders.Add
LV.ColumnHeaders.Add , , "Colonna 1"
LV.ColumnHeaders.Add , , "Colonna 2"
LV.ColumnHeaders.Add , , "Colonna 3"
LV.ColumnHeaders.Item(1).Width = 0

For Cont1 = 1 To 10
  LV.ListItems.Add
  StrTemp = "Elemento " & CStr(Cont1)
  LV.ListItems.Item(Cont1).SubItems(1) = StrTemp
  LV.ListItems.Item(Cont1).SubItems(2) = StrTemp
  LV.ListItems.Item(Cont1).SubItems(3) = StrTemp
  
  Randomize Timer
  NumTemp = CByte(Int((15 - 0 + 1) * Rnd + 0))
  Colore = QBColor(NumTemp)
  LV.ListItems.Item(Cont1).ListSubItems.Item(1).ForeColor = Colore
  
  Randomize Timer
  NumTemp = CByte(Int((15 - 0 + 1) * Rnd + 0))
  Colore = QBColor(NumTemp)
  LV.ListItems.Item(Cont1).ListSubItems.Item(2).ForeColor = Colore
  
  Randomize Timer
  NumTemp = CByte(Int((15 - 0 + 1) * Rnd + 0))
  Colore = QBColor(NumTemp)
  LV.ListItems.Item(Cont1).ListSubItems.Item(3).ForeColor = Colore
Next Cont1

[Stefanik]

Grazie Mabi lo provo subito.

[Stefanik]

Ho usato la ListView ed ora riesco a vedere i vari colori per voce.
Ora però il problema è visualizzare le varie voci secondo la modalità di una listbox, cioè su una singola colonna senza avere le parole riportate a capo(quelle troppo lunghe).

Questo è il mio codice:

LVFiltro.ListItems.Add ContFiltro, , cmbFiltro.Text
LVFiltro.ListItems.Item(ContFiltro).ForeColor = ColorList

[Stefanik]

Smanettando un pochino mi sono accorto dell'opzione "View" ed ecco che la visualizzazione è tipo ListBox

[Mabi]