Versione delle 23:40, 25 apr 2023

I nomi dei file mostrati in una FileView appaiono tutti del medesimo colore.

La FileView è costituita, come "Figlio", da un Oggetto Panel, che a sua volta contiene, come proprio "Figlio", un Oggetto IconView.

Va precisato che il FileView si serve proprio di tale IconView per mostrare i file.

La IconView possiede la Proprietà ".Keys", i cui elementi rappresentano il nome di ogni file mostrato e posseggono la Proprietà ".RichText".

Per ottenere colori diversi per il nome di ciascun file mostrato, sarà sufficiente attribuire impostare nella predetta Proprietà ".RichText" il tag html: <FONT Color=......> ^{[Nota 1]}

Mostriamo un esempio:

Public Sub Form_Open()

 Dim p As Panel
 Dim iv As IconView
 Dim s As String

' Ottiene la variabile che punta al "Panel", "figlio" del "FileView":
 p = FileView1.Children[0]
 
' Ottiene la variabile che punta al Controllo "IconView", "figlio" del "Panel":
 iv = p.Children[0]
  
' Per esempio, se il nome del file ha al suo interno la lettera "b", allora il suo testo diventa rosso:
 For Each s In iv.Keys
   If File.Name(s) Like "*b*" Then
     iv[s].RichText = "<FONT Color=red>" & iv[s].Text & "</font>"
   Endif
 Next
 
End

Note

[1] Questa soluzione è stata fornita da "BruceSteers", membro del sito: https://forum.gambas.one/index.php