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 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