Differenze tra le versioni di "Rendere semitrasparente una immagine"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: 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'immagi...)
 
 
(8 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
 
La ''semitrasparenza'' consente di vedere, oltre agli elementi costituenti un'immagine, anche un'altra immagine posta al di sotto di quella.
 
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''.
  
Per rendere ''semitrasparente'' un'immagine, è necessario utilizzare la funzione ''.Opacity'' della Classe ''Image''.
+
Nell'esempio, che segue, abbiamo due immagini poste in due ''PictureBox'', una posta sotto l'altra.
 
+
<BR>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()
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 im As 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) <FONT color=#006400>' ''La funzione vuole un valore di tipo Float compreso tra 0 ed 1''</font>
 
  End With 
 
     
 
  p = i.Picture 
 
 
        
 
        
   PictureBox1.Picture = p  
+
   PictureBox2.Picture = Picture.Load("<FONT Color=darkgreen>''/percorso/della/immagine/sottostante''</font>")  
 
        
 
        
'''End'''
+
  With im = im.Load("<FONT Color=darkgreen>''/percorso/della/immagine''</font>") 
 +
    im = <FONT Color=red>.Opacity(0.5)</font>
 +
  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.

Versione attuale delle 14:41, 3 lug 2024

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.