Differenze tra le versioni di "Creare da codice un'immagine trasparente"
Da Gambas-it.org - Wikipedia.
| Riga 6: | Riga 6: | ||
===Mediante la Classe ''Image''=== | ===Mediante la Classe ''Image''=== | ||
Si potrà fare uso delle risorse disponibili con la Classe ''Image'': | Si potrà fare uso delle risorse disponibili con la Classe ''Image'': | ||
| − | + | Public Sub Button1_Click() | |
Dim im As Image | Dim im As Image | ||
| − | With im = New Image(100, 100, <FONT color= | + | With im = New Image(100, 100, <FONT color=red>&FF000000</font>, Image.Standard) |
<FONT color=gray>' ''oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''''</font> | <FONT color=gray>' ''oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''''</font> | ||
.Save("/tmp/immagine_trasparente.png", 100) | .Save("/tmp/immagine_trasparente.png", 100) | ||
| Riga 17: | Riga 17: | ||
PictureBox1.Image = im | PictureBox1.Image = im | ||
| − | + | End | |
===Mediante la Classe ''Picture''=== | ===Mediante la Classe ''Picture''=== | ||
Si potrà fare uso delle risorse disponibili con la Classe ''Picture'': | Si potrà fare uso delle risorse disponibili con la Classe ''Picture'': | ||
| − | + | Public Sub Button1_Click() | |
Dim pc As Picture | Dim pc As Picture | ||
<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font> | <FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font> | ||
| − | With pc = New Picture(100, 100, <FONT color= | + | With pc = New Picture(100, 100, <FONT color=red>True</font>) |
<FONT color=gray>' ''Oppure il terzo parametro può essere impostato anche così:'' | <FONT color=gray>' ''Oppure il terzo parametro può essere impostato anche così:'' | ||
' '''With pc = New Picture(100, 100, Color.Transparent)'''</font> | ' '''With pc = New Picture(100, 100, Color.Transparent)'''</font> | ||
| Riga 35: | Riga 35: | ||
End With | End With | ||
| − | + | End | |
| Riga 41: | Riga 41: | ||
Si potrà anche fare uso del protocollo relativo ai file immagine del [[Struttura_del_formato_XPM|formato ''XPM'']]. | Si potrà anche fare uso del protocollo relativo ai file immagine del [[Struttura_del_formato_XPM|formato ''XPM'']]. | ||
| − | + | Public Sub Button1_Click() | |
Dim wc, hr As Short | Dim wc, hr As Short | ||
| Riga 63: | Riga 63: | ||
File.Save("/tmp/immagine_trasparente.xpm''</font>", s) | File.Save("/tmp/immagine_trasparente.xpm''</font>", s) | ||
| − | + | End | |
Versione attuale delle 15:45, 25 giu 2024
Talvolta può rendersi necessario utilizzare una o più immagini trasparenti.
E' possibile evitare di dover caricare preliminarmente nel progetto un file di un'immagine trasparente, generandola direttamente via codice Gambas con almeno tre modalità.
Mediante la Classe Image
Si potrà fare uso delle risorse disponibili con la Classe Image:
Public Sub Button1_Click()
Dim im As Image
With im = New Image(100, 100, &FF000000, Image.Standard)
' oppure anche: New Image(100, 100, Color.Transparent, Image.Standard)
.Save("/tmp/immagine_trasparente.png", 100)
End With
PictureBox1.Image = im
End
Mediante la Classe Picture
Si potrà fare uso delle risorse disponibili con la Classe Picture:
Public Sub Button1_Click()
Dim pc As Picture
' Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":
With pc = New Picture(100, 100, True)
' Oppure il terzo parametro può essere impostato anche così:
' With pc = New Picture(100, 100, Color.Transparent)
' I formati utili per generare immagini trasparenti sono ".png" e ".xpm":
.Save("/tmp/immagine_trasparente.png", 100)
End With
End
Mediante il protocollo del file immagine XPM
Si potrà anche fare uso del protocollo relativo ai file immagine del formato XPM.
Public Sub Button1_Click()
Dim wc, hr As Short
Dim s, px As String
' La variabile "wc" rappresenta il numero di pixel della dimensione orizzontale (numero di colonne) dell'immagine:
wc = 100
' La variabile "hr" rappresenta il numero di pixel della dimensione verticale (numero di righe) dell'immagine:
hr = 100
px = String$(hr, "\"" & String$(wc, ".") & "\",\n")
s = "/* XPM */\n" &
"static char *" & Application.Name & "[]={\n" &
"\"" & wc & " " & hr & " 1 1\",\n" & ' Valori: <width/cols> <height/rows> <colors> <char on pixel>
"\". c None\",\n" & ' Colors
px & "};" ' Pixels
' Viene salvata l'immagine, per essere successivamente caricata ed utilizzata:
File.Save("/tmp/immagine_trasparente.xpm</font>", s)
End
