Visualizza wikitesto di Disegnare in una DrawingArea due immagini sovrapposte anche consentendo il cambio di opacità di quella disegnata sopra

Per disegnare in una ''DrawingArea'' due o più immagini, che restino eventualmente gestibili in modo distinto anche successivamente, si usa il Metodo "''.DrawImage( )''" della Classe "''Paint''" per ciascuna immagine.

Inoltre, avendo due immagini disegnate l'una sovrapposta all'altra, se si intende anche cambiare il livello di opacità dell'immagine che sta sopra, in modo che si intraveda l'immagine sottostante, bisognerà modificare l'apposito sesto parametro formale del predetto Metodo.


Mostriamo un semplice esempio pratico, nel quale il livello di opacità dell'immagine sovrastante potrà essere cambiato mediante la rotazione della rotellina del mouse.
 Private im1 As Image
 Private im2 As Image
 Private f As Float
 
 
 '''Public''' Sub Form_Open()
  
 <FONT Color=gray>' ''Usiamo questa volta la Classe "Image in modo "Statico" per caricare le due immagini da sovrapporre nella "DrawingArea":''</font>
  im1 = Image.Load("<FONT Color=gray>''/percorso/della/prima/immagine''</font>")
  im2 = Image.Load("<FONT Color=gray>''/percorso/della/seconda/immagine''</font>")
   
 '''End'''
 
 '''Public''' Sub DrawingArea1_Draw()
  
 <FONT Color=gray>' ''Disegnamo entrambe le immagini su un'unica "DrawingArea":''</font>
  With Paint
    <FONT Color=#B22222>.DrawImage</font>(im1, 100, 100, im1.W, im1.H, 1.00)
 <FONT Color=gray>' ''Passiamo una variabile per modificare il livello di opacità dell'immagine "im2" sovrapposta a quella "im1":''</font>
    <FONT Color=#B22222>.DrawImage</font>(im2, 100, 100, im2.W, im2.H, <FONT Color=#B22222>'''f'''</font>)
    .End
  End With
   
 '''End'''
 
 
 <FONT Color=gray>' ''Modifichiamo il livello di opacità della seconda immagine mediante la rotazione della rotellina del mouse:''</font>
 '''Public''' Sub DrawingArea1_MouseWheel()
  
  Select Case Mouse.Delta
    Case 1
      f += 0.025
      If f > 1.0 Then f = 1.00
    Case -1
      f -= 0.025
      If f < 0.0 Then f = 0.0
  End Select
  
 <FONT Color=gray>' ''Consentiamo alla "DrawingArea" di ridisegnare le due immagini con il nuovo livello di opacità dell'immagine sovrapposta:''</font>
  DrawingArea1.Refresh
   
 '''End'''