Assegnare colori allo sfondo ed al testo di una riga selezionata di una ListView
Da Gambas-it.org - Wikipedia.
Versione del 17 set 2019 alle 15:11 di Vuott (Discussione | contributi)
Impostata la chiave identificatrice dell'Item della ListView, è possibile assegnare colori allo sfondo ed al testo della riga selezionata di un oggetto ListView.
Mostriamo un esempio pratico:
Public Sub Form_Open() With ListView1 .Add("1", "Riga_1") .Add("2", "Riga_2") .Add("3", "Riga_3") .Add("4", "Riga_4") .Add("5", "Riga_5") .Add("6", "Riga_6") .Add("7", "Riga_7") End With End Public Sub ListView1_Select() Dim s As String ' Assegna i colori predefiniti allo sfondo e al testo di ciascuna riga della "ListView": For Each s In ListView1.Keys ListView1[s].Background = Color.TextBackground ListView1[s].Foreground = Color.TextForeground Next With ListView1.Current ' Assegna il colore blu allo sfondo e giallo al testo presente nella corrente riga cliccata della "ListView": .Background = Color.Blue .Foreground = Color.Yellow ' Mostra in console il testo contenuto nella riga cliccata: Print .Text End With End