Rendere semitrasparente una immagine

Da Gambas-it.org - Wikipedia.
Versione del 3 lug 2024 alle 15:41 di Vuott (Discussione | contributi)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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.