Differenze tra le versioni di "Immagine di sfondo al testo in una TextEdit ed in una TextLabel"
Riga 5: | Riga 5: | ||
Facciamo un esempio pratico con una ''TextEdit'' : | Facciamo un esempio pratico con una ''TextEdit'' : | ||
− | + | Public Sub Form_Open() | |
Dim prc As String | Dim prc As String | ||
<FONT color=gray>' ''Imposta il percorso del file immagine da caricare e che farà da sfondo al testo:''</font> | <FONT color=gray>' ''Imposta il percorso del file immagine da caricare e che farà da sfondo al testo:''</font> | ||
− | prc = "<FONT color= | + | prc = "<FONT color=darkgreen>''/percorso/del/file/immagine''</font>" |
<FONT color=gray>' ''Per caricare l'immagine effettivamente in una "TextEdit", bisogna crearvi una "Tabella" con gli appositi tag HTML .'' | <FONT color=gray>' ''Per caricare l'immagine effettivamente in una "TextEdit", bisogna crearvi una "Tabella" con gli appositi tag HTML .'' | ||
Riga 19: | Riga 19: | ||
"><TR><TD align=justify>Questo è il testo che starà al di sopra dell'immagine</td></tr></table>" | "><TR><TD align=justify>Questo è il testo che starà al di sopra dell'immagine</td></tr></table>" | ||
− | + | End | |
L'intero testo, che sarà contenuto nella ''TextEdit'', o nella ''TextLabel'', affinché possa stare tutto al di sopra dell'immagine caricata, dovrà continuare ad essere gestito all'interno della cella (nel tag <TD> ) della Tabella. Quindi anche eventuali cambiamenti delle sue proprietà (colore, stile, etc) dovranno essere gestiti secondo il protocollo HTML. <SUP>[[[#Note|Nota 1]]]</sup> | L'intero testo, che sarà contenuto nella ''TextEdit'', o nella ''TextLabel'', affinché possa stare tutto al di sopra dell'immagine caricata, dovrà continuare ad essere gestito all'interno della cella (nel tag <TD> ) della Tabella. Quindi anche eventuali cambiamenti delle sue proprietà (colore, stile, etc) dovranno essere gestiti secondo il protocollo HTML. <SUP>[[[#Note|Nota 1]]]</sup> | ||
<BR>Così ad esempio, se si vuole anche colorare di rosso il testo (oltre ad assegnargli un allineamento "giustificato"), l'ultima riga diventerà: | <BR>Così ad esempio, se si vuole anche colorare di rosso il testo (oltre ad assegnargli un allineamento "giustificato"), l'ultima riga diventerà: | ||
Riga 28: | Riga 28: | ||
=Note= | =Note= | ||
− | [1] Riguardo ai "TAG" del protocollo HTML compatibili con gli Oggetti grafici di Gambas, vedere questa pagina: [[ | + | [1] Riguardo ai "TAG" del protocollo HTML compatibili con gli Oggetti grafici di Gambas, vedere questa pagina: [[Elenco delle istruzioni HTML compatibili]] |
Versione attuale delle 14:53, 3 lug 2024
Il caso è quello in cui si vuole ottenere una immagine che fa da sfondo ad un testo in una "TextEdit" o in una "TextLabel", evitando però che il testo sia integrato nell'immagine medesima in un nuovo file immagine, mantenendo così testo e immagine sostanzialmente come elementi ben distinti fra loro.
Poiché, però, la TextEdit e la TextLabel non possiedono Proprietà specifiche per caricare direttamente le immagini, ci serviremo, in alternativa, per la TextEdit della Proprietà ".RichText", e per la TextLabel della Proprietà ".Text", utilizzando al loro interno il codice HTML.
In particolare, ci serviremo del tag <TABLE>, creando così una tabella per sfruttare così la capacità della sua proprietà "background" di caricare le immagini.
Facciamo un esempio pratico con una TextEdit :
Public Sub Form_Open() Dim prc As String ' Imposta il percorso del file immagine da caricare e che farà da sfondo al testo: prc = "/percorso/del/file/immagine" ' Per caricare l'immagine effettivamente in una "TextEdit", bisogna crearvi una "Tabella" con gli appositi tag HTML . ' Si sfrutterà, a tal fine, la capacità della <TABLE> di caricare le immagini. ' Imposta le dimensioni della tabella in base alle dimensioni della immagineda mostrare come sfondo al testo. ' Quindi con la proprietà "background" della Tabella carica effettivamente l'immagine nella predetta Tabella creata e dimensionata: TextEdit1.RichText = "<TABLE width=" & ImageStat(prc).Width & " height=" & ImageStat(prc).Height & " background=" & prc & "><TR><TD align=justify>Questo è il testo che starà al di sopra dell'immagine</td></tr></table>" End
L'intero testo, che sarà contenuto nella TextEdit, o nella TextLabel, affinché possa stare tutto al di sopra dell'immagine caricata, dovrà continuare ad essere gestito all'interno della cella (nel tag <TD> ) della Tabella. Quindi anche eventuali cambiamenti delle sue proprietà (colore, stile, etc) dovranno essere gestiti secondo il protocollo HTML. [Nota 1]
Così ad esempio, se si vuole anche colorare di rosso il testo (oltre ad assegnargli un allineamento "giustificato"), l'ultima riga diventerà:
TextEdit1.RichText = "<TABLE width=" & ImageStat(prc).Width & " height=" & ImageStat(prc).Height & " background=" & prc & "><TR><TD align=justify style=color:red>Questo è il testo che starà al di sopra dell'immagine</td></tr></table>"
Note
[1] Riguardo ai "TAG" del protocollo HTML compatibili con gli Oggetti grafici di Gambas, vedere questa pagina: Elenco delle istruzioni HTML compatibili