Differenze tra le versioni di "Rendere semitrasparente una immagine"

Da Gambas-it.org - Wikipedia.
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 9: Riga 9:
 
  '''Public''' Sub Form_Open()
 
  '''Public''' Sub Form_Open()
 
   
 
   
   Dim i As New Image
+
   Dim im As Image
 
   Dim p As Picture
 
   Dim p As Picture
 
        
 
        
   PictureBox2.Picture = Picture.Load("''immagine_sottostante.xxx''")   
+
   PictureBox2.Picture = Picture.Load("<FONT Color=gray>''/percorso/della/immagine/sottostante''</font>")   
 
        
 
        
   With i = i.Load("''immagine_da_rendere_semitrasparente.xxx''")   
+
   With im = im.Load("<FONT Color=gray>''/percorso/della/immagine''</font>")   
     i = .Opacity(0.5) <FONT color=#006400>' ''La funzione vuole un valore di tipo Float compreso tra 0 ed 1''</font>
+
     im = <FONT Color=#B22222>.Opacity(0.5)</font>
 
   End With   
 
   End With   
 
        
 
        
   p = i.Picture   
+
   p = im.Picture   
 
        
 
        
 
   PictureBox1.Picture = p   
 
   PictureBox1.Picture = p   
 
        
 
        
 
  '''End'''
 
  '''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.
+
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.

Versione delle 11:22, 29 gen 2016

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 im As Image
 Dim p As Picture
     
  PictureBox2.Picture = Picture.Load("/percorso/della/immagine/sottostante")  
     
  With im = im.Load("/percorso/della/immagine")  
    im = .Opacity(0.5)
  End With  
     
  p = im.Picture  
      
  PictureBox1.Picture = p  
     
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.