Differenze tra le versioni di "Rendere trasparente una immagine gradualmente"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per rendere trasparente in modo graduale un'immagine, posta in una ''PictureBox'', si utilizzerà il metodo ''.Opacity()' della Classe ''Image'' in un ciclo, diminuendo gradat...") |
|||
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 1: | Riga 1: | ||
| − | Per rendere trasparente in modo graduale un'immagine, posta in una ''PictureBox'', si utilizzerà il | + | 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: | Mostriamo un semplice esempio: | ||
| − | + | Public Sub Form_Open() | |
| − | + | Dim im, im2 As Image | |
| − | + | Dim f As Float = 1.00 | |
Me.Show | Me.Show | ||
| − | im = Image.Load("<FONT Color= | + | im = Image.Load("<FONT Color=darkgreen>''/percorso/della/immagine''</font>") |
While f > -0.01 | While f > -0.01 | ||
| Riga 16: | Riga 15: | ||
im2.Opacity(f) | im2.Opacity(f) | ||
PictureBox1.Picture = im2.Picture | PictureBox1.Picture = im2.Picture | ||
| − | <FONT Color=gray>' ''Diminuiamo il valore da passare al | + | <FONT Color=gray>' ''Diminuiamo il valore da passare al Metodo ".Opacity()":''</font> |
f -= 0.01 | f -= 0.01 | ||
<FONT Color=gray>' ''Poniamo un'attesa di 300 millisecondi:''</font> | <FONT Color=gray>' ''Poniamo un'attesa di 300 millisecondi:''</font> | ||
| Riga 22: | Riga 21: | ||
Wend | Wend | ||
| − | + | End | |
Versione attuale delle 14: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
