Differenze tra le versioni di "Rendere semitrasparente una immagine"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 1: | Riga 1: | ||
La ''semitrasparenza'' consente di vedere, oltre agli elementi costituenti un'immagine, anche un'altra immagine posta al di sotto di quella. | 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 | + | Per rendere ''semitrasparente'' un'immagine, è necessario utilizzare il Metodo ".Opacity()" della Classe ''Image''. |
| − | + | Nell'esempio, che segue, abbiamo due immagini poste in due ''PictureBox'', una posta sotto l'altra. | |
| − | + | <BR>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 | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | + | PictureBox2.Picture = Picture.Load("<FONT Color=darkgreen>''/percorso/della/immagine/sottostante''</font>") | |
| − | + | With im = im.Load("<FONT Color=darkgreen>''/percorso/della/immagine''</font>") | |
| − | Il | + | im = <FONT Color=red>.Opacity(0.5)</font> |
| + | End With | ||
| + | |||
| + | PictureBox1.Image = im | ||
| + | |||
| + | 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 attuale delle 15:41, 3 lug 2024
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 il Metodo ".Opacity()" della Classe Image.
Nell'esempio, che segue, 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
PictureBox2.Picture = Picture.Load("/percorso/della/immagine/sottostante")
With im = im.Load("/percorso/della/immagine")
im = .Opacity(0.5)
End With
PictureBox1.Image = im
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.
