Modificare le dimensioni di una Image usando il suo Metodo .Stretch

Il Metodo ".Stretch()" della Classe Image consente di stirare, di allungare, ma più in generale di modificare le dimensioni di una immagine.

Mostriamo un semplice esempio pratico, nel quale cliccando in una PictureBox e tenendo premuto il tasto sinistro del mouse, poi spostando il puntatore del mouse all'interno di una PictureBox, si potrà ingrandire o rimpicciolire l'immagine ivi mostrata.

Private PictureBox1 As PictureBox
Private im As Image


Public Sub Form_Open()

' Carica subito l'immagine, per mostrarla sin dall'inizio:
 im = Image.Load("/percorso/del/file/immagine")
 
 With PictureBox1 = New PictureBox(Me) As "PictureBox1"
   .X = 20
   .Y = 20
   .W = im.W
   .H = im.H
   .Image = im
 End With
 
End


Public Sub PictureBox1_MouseMove()
   
 PictureBox1.Image = im.Stretch(Mouse.X + 1, Mouse.Y + 1)
  
End

In quest'altro esempio si varierà la dimensione dell'immagine all'interno di una PictureBox, ruotando in avanti o indietro la rotellina del mouse:

Private PictureBox1 As PictureBox
Private im As Image
Private c As Short


Public Sub Form_Open()

 im = Image.Load("/percorso/del/file/immagine")

 With PictureBox1 = New PictureBox(Me) As "PictureBox1"
   .W = im.W
   .H = im.H
   .Image = im
 End With

End


Public Sub Form_MouseWheel()

 c += Mouse.Delta

 With im
   PictureBox1.Image = Stretch(.W + (c * 11), .H + (c * 11), False)
 End With

End