Differenze tra le versioni di "Mostrare con diversi colori i nomi dei file in una FileView"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "I nomi dei file mostrati in una ''FileView'' appaiono tutti del medesimo colore. La ''FileView'' Per ottenere colori di") |
|||
| Riga 1: | Riga 1: | ||
I nomi dei file mostrati in una ''FileView'' appaiono tutti del medesimo colore. | I nomi dei file mostrati in una ''FileView'' appaiono tutti del medesimo colore. | ||
| − | La ''FileView'' | + | La ''FileView'' è costituita, come "Figlio", da un Oggetto '' Panel'', che a sua volta contiene, come proprio "Figlio", un Oggetto ''IconView''. |
| − | Per ottenere colori di | + | |
| + | 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=....... | ||
| + | |||
| + | Mostriamo un esempio: | ||
| + | Public Sub Form_Open() | ||
| + | |||
| + | Dim p As Panel | ||
| + | Dim iv As IconView | ||
| + | Dim s As String | ||
| + | |||
| + | <FONT Color=gray>' ''Ottiene la variabile che punta al "Panel", "figlio" del "FileView":''</font> | ||
| + | p = FileView1.Children[0] | ||
| + | |||
| + | <FONT Color=gray>' ''Ottiene la variabile che punta al Controllo "IconView", "figlio" del "Panel":</font> | ||
| + | iv = p.Children[0] | ||
| + | |||
| + | <FONT Color=gray>' ''Per esempio, se il nome del file ha al suo interno la lettera "b", allora il suo testo diventa rosso:</font> | ||
| + | For Each s In iv.Keys | ||
| + | If File.Name(s) Like "*b*" Then | ||
| + | iv[s].RichText = "<font color=red>7" & iview[s].Text & "</font>" | ||
| + | Endif | ||
| + | Next | ||
| + | |||
| + | End | ||
| + | |||
| + | |||
| + | |||
| + | =Note= | ||
| + | [1] Questa soluzione è stata fornita da "BruceSteers", membro del sito | ||
Versione delle 23:27, 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=.......
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 = "7" & iview[s].Text & ""
Endif
Next
End
Note
[1] Questa soluzione è stata fornita da "BruceSteers", membro del sito
