Ridimensionare immagine jpg

[borch]

Buongiorno a tutti,

è possibile con Gambas ridimensionare un'immagine .jpg leggendo il file da una cartella e creandone uno nuovo ridimensionato?
Ho fatto una ricerca sul forum senza però trovare nulla.

Vi ringrazio in anticipo

[vuott]

Per ridimensionare (rimpicciolire o ingradire) un'immagine devi usare il metodo .Stretch() della Classe Image.

Vediamo un esempio:

Codice: [Seleziona]

Public Sub Form_Open()

  Dim im As Image
  
    im = Image.Load("/percorso/del/file.jpg")

' Rimpiccioliamo l'immagine proporzionalmente della metà:
    im = im.Stretch(im.W / 2, im.H / 2)
    
' Adattiamo la PixtureBox alla nuova dimensione dell'immagine:  
    With PictureBox1
      .W = im.W
      .H = im.H
' Mostriamo l'immagine, come ridimensionata, nella PictureBox:  
      .Picture = im.Picture
    End With

' Salviamo l'immagine ridimensionata in un nuovo file .jpg, impostando qualità massima e compressione nulla:
    im.Save("/percorso/del/nuovo/file.jpg", 100)
    
End

Colgo l'occasione, comunque, per segnalarti il capitolo della nostra WIKI dedicato alla gesione delle Immagini:
http://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0#Gestione_delle_immagini

[borch]

Grazie mille!