Differenze tra le versioni di "Modificare le dimensioni di una Image usando il suo Metodo .Stretch"
Da Gambas-it.org - Wikipedia.
| (3 versioni intermedie di uno stesso utente non sono mostrate) | |||
| 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. | ||
| − | + | Private PictureBox1 As PictureBox | |
Private im As Image | Private im As Image | ||
| Riga 11: | Riga 11: | ||
im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>") | im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>") | ||
| − | With PictureBox1 | + | With PictureBox1 = New PictureBox(Me) As "PictureBox1" |
.X = 20 | .X = 20 | ||
.Y = 20 | .Y = 20 | ||
| Riga 24: | Riga 24: | ||
Public Sub PictureBox1_MouseMove() | Public Sub PictureBox1_MouseMove() | ||
| − | + | PictureBox1.Image = im.<FONT Color=red>Stretch</font>(Mouse.X + 1, Mouse.Y + 1) | |
| − | |||
| − | |||
| − | |||
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: | 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 PictureBox1 As PictureBox | ||
Private im As Image | Private im As Image | ||
Private c As Short | Private c As Short | ||
| Riga 38: | Riga 35: | ||
Public Sub Form_Open() | Public Sub Form_Open() | ||
| − | With | + | im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>") |
| − | .W = | + | |
| − | .H = | + | With PictureBox1 = New PictureBox(Me) As "PictureBox1" |
| + | .W = im.W | ||
| + | .H = im.H | ||
| + | .Image = im | ||
End With | End With | ||
| − | |||
| − | |||
| − | |||
End | End | ||
| Riga 54: | Riga 51: | ||
With im | With im | ||
| − | PictureBox1.Image = | + | PictureBox1.Image = <FONT Color=red>Stretch</font>(.W + (c * 11), .H + (c * 11), False) |
End With | End With | ||
End | End | ||
Versione attuale delle 15:47, 10 lug 2024
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 PictureBox1 As PictureBox
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 = New PictureBox(Me) As "PictureBox1"
.X = 20
.Y = 20
.W = im.W
.H = im.H
.Image = im
End With
End
Public Sub PictureBox1_MouseMove()
PictureBox1.Image = im.Stretch(Mouse.X + 1, Mouse.Y + 1)
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 PictureBox1 As PictureBox
Private im As Image
Private c As Short
Public Sub Form_Open()
im = Image.Load("/percorso/del/file/immagine")
With PictureBox1 = New PictureBox(Me) As "PictureBox1"
.W = im.W
.H = im.H
.Image = im
End With
End
Public Sub Form_MouseWheel()
c += Mouse.Delta
With im
PictureBox1.Image = Stretch(.W + (c * 11), .H + (c * 11), False)
End With
End
