Differenze tra le versioni di "Rendere trasparente una immagine gradualmente"
Da Gambas-it.org - Wikipedia.
| Riga 4: | Riga 4: | ||
Public Sub Form_Open() | Public Sub Form_Open() | ||
| − | + | Dim im, im2 As Image | |
| − | + | Dim f As Float = 1.00 | |
Me.Show | Me.Show | ||
Versione attuale delle 15:43, 3 lug 2024
Per rendere trasparente in modo graduale un'immagine, posta in una PictureBox, si utilizzerà il Metodo ".Opacity()" della Classe Image in un ciclo, diminuendo gradatamente il valore nel suo unico parametro ad ogni giro.
Mostriamo un semplice esempio:
Public Sub Form_Open()
Dim im, im2 As Image
Dim f As Float = 1.00
Me.Show
im = Image.Load("/percorso/della/immagine")
While f > -0.01
im2 = im.Copy()
im2.Opacity(f)
PictureBox1.Picture = im2.Picture
' Diminuiamo il valore da passare al Metodo ".Opacity()":
f -= 0.01
' Poniamo un'attesa di 300 millisecondi:
Wait 0.03
Wend
End
