Rendere semitrasparente una immagine

Da Gambas-it.org - Wikipedia.

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 la funzione .Opacity della Classe Image.


Esempio.

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 i As New Image
 Dim p As Picture
     
  PictureBox2.Picture = Picture.Load("immagine_sottostante.xxx")  
     
  With i = i.Load("immagine_da_rendere_semitrasparente.xxx")  
    i = .Opacity(0.5) ' La funzione vuole un valore di tipo Float compreso tra 0 ed 1
  End With  
     
  p = i.Picture  
      
  PictureBox1.Picture = p  
     
End

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.