Differenze tra le versioni di "Rendere semitrasparente una immagine"
Da Gambas-it.org - Wikipedia.
| Riga 9: | Riga 9: | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | Dim | + | Dim im As Image |
Dim p As Picture | Dim p As Picture | ||
PictureBox2.Picture = Picture.Load("''immagine_sottostante.xxx''") | PictureBox2.Picture = Picture.Load("''immagine_sottostante.xxx''") | ||
| − | With | + | With im = im.Load("<FONT Color=gray>''/percorso/della/immagine''</font>") |
| − | + | im = <FONT Color=#B22222>.Opacity(0.5)</font> | |
End With | End With | ||
| − | p = | + | p = im.Picture |
PictureBox1.Picture = p | PictureBox1.Picture = p | ||
'''End''' | '''End''' | ||
| − | + | Il metodo ''.Opacity( )'' vuole un valore di tipo Float compreso tra 0 ed 1. Se il valore di tipo Float è uguale a 0, allora l'immagine diventa completamente trasparente. Se invece è uguale a 1, allora il suo grado di opacità è immodificato. | |
Versione delle 10:21, 29 gen 2016
La semitrasparenza consente di vedere, oltre agli elementi costituenti un'immagine, anche un'altra immagine posta al di sotto di quella.
Per rendere semitrasparente un'immagine, è necessario utilizzare la funzione .Opacity della Classe Image.
Esempio.
Abbiamo due immagini poste in due PictureBox, una posta sotto l'altra. L'obiettivo è di rendere semi-trasparente l'immagine superiore, in modo tale che si riesca a vedere anche l'immagine sottostante:
Public Sub Form_Open()
Dim im As Image
Dim p As Picture
PictureBox2.Picture = Picture.Load("immagine_sottostante.xxx")
With im = im.Load("/percorso/della/immagine")
im = .Opacity(0.5)
End With
p = im.Picture
PictureBox1.Picture = p
End
Il metodo .Opacity( ) vuole un valore di tipo Float compreso tra 0 ed 1. Se il valore di tipo Float è uguale a 0, allora l'immagine diventa completamente trasparente. Se invece è uguale a 1, allora il suo grado di opacità è immodificato.
