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.
Riga 14: | Riga 14: | ||
.W = Me.w - 10 | .W = Me.w - 10 | ||
.H = Me.H - 10 | .H = Me.H - 10 | ||
+ | <FONT Color=gray>' ''Mostra l'immagine originale:''</font> | ||
.Image = im | .Image = im | ||
End With | End With | ||
Riga 27: | Riga 28: | ||
<FONT Color=gray>' ''Ridimensiona l'immagine in base al nuovo vertice prima impostato:''</font> | <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) | ||
+ | <FONT Color=gray>' ''Mostra l'immagine come modificata:''</font> | ||
.Image = im | .Image = im | ||
End With | End With | ||
'''End''' | '''End''' |
Versione attuale delle 11:29, 23 gen 2020
Il caso è quello in cui, avendo caricato un'immagine in una PictureBox, si intende mostrare successivamente 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 ' Mostra l'immagine originale: .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) ' Mostra l'immagine come modificata: .Image = im End With End