Differenze tra le versioni di "Modificare le dimensioni di una Image usando il suo Metodo .Stretch"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | Il Metodo " | + | 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. | 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. | ||
Riga 5: | Riga 5: | ||
− | + | Public Sub Form_Open() | |
<FONT Color=gray>' ''Carica subito l'immagine, per mostrarla sin dall'inizio:''</font> | <FONT Color=gray>' ''Carica subito l'immagine, per mostrarla sin dall'inizio:''</font> | ||
Riga 18: | Riga 18: | ||
End With | End With | ||
− | + | End | |
− | + | Public Sub PictureBox1_MouseMove() | |
With PictureBox1 | With PictureBox1 | ||
Riga 28: | Riga 28: | ||
End With | End With | ||
− | '''End''' | + | 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 im As Image | ||
+ | Private c As Short | ||
+ | |||
+ | |||
+ | Public Sub Form_Open() | ||
+ | |||
+ | With Button1 | ||
+ | .W = 100 | ||
+ | .H = 100 | ||
+ | End With | ||
+ | |||
+ | im = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>") | ||
+ | PictureBox1.Image = im | ||
+ | |||
+ | End | ||
+ | |||
+ | Public Sub Form_MouseWheel() | ||
+ | |||
+ | c += Mouse.Delta | ||
+ | |||
+ | With im | ||
+ | PictureBox1.Image = .Stretch(.W + (c * 11), .H + (c * 11), False) | ||
+ | End With | ||
+ | |||
+ | End |
Versione delle 08:53, 2 giu 2023
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: 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() With PictureBox1 .Resize(Mouse.X + 1, Mouse.Y + 1) .Image = im.Stretch(.W, .H) End With 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 im As Image
Private c As Short
Public Sub Form_Open()
With Button1 .W = 100 .H = 100 End With im = Image.Load("/percorso/del/file/immagine") PictureBox1.Image = im
End
Public Sub Form_MouseWheel()
c += Mouse.Delta With im PictureBox1.Image = .Stretch(.W + (c * 11), .H + (c * 11), False) End With
End