Scusa approfitto di una pausa pubblicitaria, qualcosa del genere potrebbe servirti:
ListView1.Add("pi", "Pippo")
ListView1.Foreground = Color.Blue
ListView1.Add("pl", "Pluto")
ListView1["pl"].RichText = "<font color=\"red\">" & ListView1["pl"].Text & "</font>"
:ciao:
Scusa ma non capisco, una cosa così non ti andrebbe bene?
' Gambas class file
Private s1 As String
Private s2 As String
Public Sub Form_Open()
ListView1.Add("1", "Pippo")
ListView1.Add("2", "Pluto")
ListView1.Add("3", "Paperino")
ListView1.Add("4", "Gastone")
ListView1.Add("5", "Qui")
ListView1.Add("6", "Quo")
ListView1.Add("7", "Qua")
End
Public Sub ListView1_Select()
s1 = ListView1.Key
If s1 <> s2 Then
ListView1[s1].RichText = "<font color=\"red\">" & ListView1[s1].Text & "</font>"
Endif
If s2 <> "" Then
ListView1[s2].RichText = "<font color=\"black\">" & ListView1[s2].Text & "</font>"
Endif
s2 = s1
End
Perchè ho paura che sia l'unica via.
:ciao:
Effettivamente sembra che non vi sia la diretta possibilità di colorare lo sfondo della sola riga, sulla quale si è cliccato.
Poiché però l'oggetto ListView è composto anche dall'oggetto GridView, possiamo agire su quest'ultimo (che è figlio della ListView).
In particolare opereremo sull'oggetto figlio, ossia la GridView, in ordine alla colorazione dello sfondo della riga selezionata (cliccata) della ListView. Potremo, però, agire sull'item selezionato della ListView per imporre al testo in esso presente il colore da noi prescelto.
Exemplum:
Public Sub Form_Open()
ListView1.Add("1", "Pippo")
ListView1.Add("2", "Pluto")
ListView1.Add("3", "Paperino")
ListView1.Add("4", "Gastone")
ListView1.Add("5", "Qui")
ListView1.Add("6", "Quo")
ListView1.Add("7", "Qua")
End
Public Sub ListView1_Select()
Dim j As Byte
Dim ob As Object
' Assegnamo alla variabile di tipo oggetto il "figlio" (che è una "GridView") della "ListView":
ob = ListView1.Children[0]
' Assegnamo i colori di base allo sfondo della "GridView-figlio" e al testo presente nella "ListView":
For j = 0 To ob.Rows.Max
ob[j, 0].Background = Color.Default
ListView1[j + 1].Richtext = "<FONT Color=#212121>" & listView1[j + 1].text
Next
' Assegnamo il colore blu allo sfondo della riga cliccata della "GridView-figlio":
ob[ob.Row, 0].Background = &0000FF
' Assegnamo il colore giallo al testo presente nella riga cliccata della "ListView":
ListView1[ob.Row + 1].Richtext = "<FONT Color=#FFFF00>" & listView1[ob.Row + 1].text
End