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