Differenze tra le versioni di "Ridimensionare e mostrare un'immagine in base al punto ove si è cliccato con il puntatore del mouse"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Il caso è quello in cui, avendo caricato un'immagine in una ''PictureBox'', si intende mostrare detta immagine, però ridimensionata avendo come coordinata iniziale x=0, y=0...") |
|||
| Riga 1: | Riga 1: | ||
| − | Il caso è quello in cui, avendo caricato un'immagine in una ''PictureBox'', si intende mostrare detta immagine, però ridimensionata avendo come coordinata iniziale x=0, y=0 il punto in cui si è cliccato sulla medesima con il puntatore del mouse. | + | Il caso è quello in cui, avendo caricato un'immagine in una ''PictureBox'', si intende mostrare detta immagine, però ridimensionata avendo come coordinata iniziale (vertice in alto a sinistra) x=0, y=0 il punto in cui si è cliccato sulla medesima con il puntatore del mouse. |
E' possibile utilizzare il seguente esempio: | E' possibile utilizzare il seguente esempio: | ||
| Riga 23: | Riga 23: | ||
With PictureBox1 | With PictureBox1 | ||
| + | <FONT Color=gray>' ''Ridefinisce il vertice in alto a sinistra (x=0,y=0) dell'immagine:''</font> | ||
im = .Image.DrawImage(im, 0, 0, im.W, im.H, Mouse.X, Mouse.Y) | im = .Image.DrawImage(im, 0, 0, im.W, im.H, Mouse.X, Mouse.Y) | ||
| + | <FONT Color=gray>' ''Ridimensiona l'immagine in base al nuovo vertice prima impostato:''</font> | ||
im = .Image.Resize(im.W - Mouse.X, im.H - Mouse.Y) | im = .Image.Resize(im.W - Mouse.X, im.H - Mouse.Y) | ||
.Image = im | .Image = im | ||
Versione delle 11:27, 23 gen 2020
Il caso è quello in cui, avendo caricato un'immagine in una PictureBox, si intende mostrare detta immagine, però ridimensionata avendo come coordinata iniziale (vertice in alto a sinistra) x=0, y=0 il punto in cui si è cliccato sulla medesima con il puntatore del mouse.
E' possibile utilizzare il seguente esempio:
Private im As New Image
Public Sub Form_Open()
im = im.Load("/percorso/del/file/immagine")
With PictureBox1
.X = 10
.Y = 10
.W = Me.w - 10
.H = Me.H - 10
.Image = im
End With
End
Public Sub PictureBox1_MouseUp()
With PictureBox1
' Ridefinisce il vertice in alto a sinistra (x=0,y=0) dell'immagine:
im = .Image.DrawImage(im, 0, 0, im.W, im.H, Mouse.X, Mouse.Y)
' Ridimensiona l'immagine in base al nuovo vertice prima impostato:
im = .Image.Resize(im.W - Mouse.X, im.H - Mouse.Y)
.Image = im
End With
End
