Differenze tra le versioni di "Fondere due immagini in una sola"
Da Gambas-it.org - Wikipedia.
| Riga 23: | Riga 23: | ||
'''End''' | '''End''' | ||
| − | Per mescolare le due immagini, ma facendo in modo che la seconda sia semitrasparente, cosicché al di sotto di essa si intraveda la parte della prima immagine coperta, allora alla seconda immagine dovrà applicarsi il metodo "''.Opacity'' ". | + | Per mescolare le due immagini, ma facendo in modo che la seconda sia semitrasparente, cosicché al di sotto di essa si intraveda la parte della prima immagine coperta, allora alla seconda immagine dovrà applicarsi il metodo "''.Opacity'' " della Classe "Image". |
Versione delle 18:04, 10 ott 2020
Viene di seguito mostrato un codice per fondere due immagini.
Public Sub Button1_Click()
Dim im1, im2 As New Image
' Viene caricata la prima immagine:
im1 = Image.Load("/percorso/del/primo/file/immagine")
' Viene caricata la seconda immagine:
im2 = Image.Load("/percorso/del/secondo/file/immagine")
' La prima immagine viene resa manipolabile con la Classe "Paint":
With Paint
.Begin(im1)
' Disegna la seconda immagine sopra la prima immagine:
.DrawImage(im2, 0, 0, 100, 100)
.End
End With
' Mostra il risultato in una "PictureBox":
PictureBox1.Image = im1
End
Per mescolare le due immagini, ma facendo in modo che la seconda sia semitrasparente, cosicché al di sotto di essa si intraveda la parte della prima immagine coperta, allora alla seconda immagine dovrà applicarsi il metodo ".Opacity " della Classe "Image".
