Differenze tra le versioni di "Imporre un colore uniforme semitrasparente su una immagine"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 1: | Riga 1: | ||
| − | Per imporre un colore uniforme con effetto di ''semitrasparenza'' su una immagine, si utilizzerà | + | Per imporre un colore uniforme con effetto di ''semitrasparenza'' su una immagine, si utilizzerà il Metodo "Color.SetAlpha()" nel 5° parametro del Metodo ".PaintRect()" della Classe ''Image''. |
| − | + | Nell'esempio, che segue, 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("'' | + | With i = i.Load("<FONT color=darkgreen>''/percorso/del/file/immagine''</font>") |
| − | .i = .PaintRect(0, 0, 400, 100, <FONT color= | + | .i = .PaintRect(0, 0, 400, 100, <FONT color=red>Color.SetAlpha</font>(Color.Blue, 180)) |
End With | End With | ||
| Riga 18: | Riga 15: | ||
PictureBox1.Picture = p | PictureBox1.Picture = p | ||
| − | + | End | |
Versione attuale delle 14:58, 3 lug 2024
Per imporre un colore uniforme con effetto di semitrasparenza su una immagine, si utilizzerà il Metodo "Color.SetAlpha()" nel 5° parametro del Metodo ".PaintRect()" della Classe Image.
Nell'esempio, che segue, 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("/percorso/del/file/immagine")
.i = .PaintRect(0, 0, 400, 100, Color.SetAlpha(Color.Blue, 180))
End With
p = i.Picture
PictureBox1.Picture = p
End
