Modificare le dimensioni di una Image usando il suo Metodo .Stretch
Da Gambas-it.org - Wikipedia.
Versione del 18 gen 2020 alle 12:21 di Vuott (Discussione | contributi)
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: .Image = Image.Load("/percorso/del/file/immagine") .W = im.W .H = im.H End With End Public Sub PictureBox1_MouseMove() Dim im As Image ' Essendo "im" una variabile locale, l'oggetto Image sarà nuovo ad ogni spostamento del puntatore del mouse: 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