Differenze tra le versioni di "Imporre un colore uniforme semitrasparente su una immagine"
Da Gambas-it.org - Wikipedia.
| Riga 3: | Riga 3: | ||
Esempio. | 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: | 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() | '''Public''' Sub Form_Open() | ||
Versione attuale 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
