Differenze tra le versioni di "Modificare le dimensioni di una Image usando il suo Metodo .Stretch"
Da Gambas-it.org - Wikipedia.
Riga 8: | Riga 8: | ||
<FONT Color=gray>' ''Carica subito l'immagine, per mostrarla sin dall'inizio</font>''</font> | <FONT Color=gray>' ''Carica subito l'immagine, per mostrarla sin dall'inizio</font>''</font> | ||
− | im = Image.Load("<FONT Color=gray> | + | im = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>") |
With PictureBox1 | With PictureBox1 | ||
Riga 25: | Riga 25: | ||
im.Erase | im.Erase | ||
− | im = Image.Load("<FONT Color=gray> | + | im = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>") |
PictureBox1.Resize(Mouse.X + 2, Mouse.Y + 2) | PictureBox1.Resize(Mouse.X + 2, Mouse.Y + 2) |
Versione delle 12:14, 18 gen 2020
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 im As Image Public Sub Form_Open() ' Carica subito l'immagine, per mostrarla sin dall'inizio</font> im = Image.Load("/percorso/del/file/immagine") With PictureBox1 .X = 20 .Y = 20 .W = im.W .H = im.H .Image = im End With End Public Sub PictureBox1_MouseMove() im.Erase im = Image.Load("/percorso/del/file/immagine") PictureBox1.Resize(Mouse.X + 2, Mouse.Y + 2) im = im.Stretch(PictureBox1.W, PictureBox1.H) PictureBox1.Image = im End