Differenze tra le versioni di "Imporre un colore uniforme semitrasparente su una immagine"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Per imporre un colore uniforme con effetto di ''semitrasparenza'' su una immagine, si utilizzerà la funzione ''Color.SetAlpha'' nel 5° parametro della funzione ''.PaintRect'' della C...) |
|||
| Riga 10: | Riga 10: | ||
With i = i.Load("''file_immagine.xxx''") | With i = i.Load("''file_immagine.xxx''") | ||
| − | .i = .PaintRect(0, 0, 400, 100, <FONT color=#B22222>Color.SetAlpha</font>(Color.Blue, | + | .i = .PaintRect(0, 0, 400, 100, <FONT color=#B22222>Color.SetAlpha</font>(Color.Blue, 180)) |
End With | End With | ||
Versione delle 20:37, 23 mar 2013
Per imporre un colore uniforme con effetto di semitrasparenza su una immagine, si utilizzerà la funzione Color.SetAlpha nel 5° parametro della funzione .PaintRect della Classe Image.
Esempio.
Poniamo di avere un'immagine, alla quale vogliamo imporre un effetto uniforme di semitrasparenza con il colore blue su una parte di quell'immagine:
Public Sub Form_Open()
Dim i As New Image
Dim p As Picture
With i = i.Load("file_immagine.xxx")
.i = .PaintRect(0, 0, 400, 100, Color.SetAlpha(Color.Blue, 180))
End With
p = i.Picture
PictureBox1.Picture = p
End
