Ciao, si può fare tranquillamente, solo che il codice te lo devi scrivere..non c'è niente di pronto.
Ti faccio un esempio per lo zoom.
In un form metti due pictureBox, la seconda la chiami picBuff (la prima picture1 imposta la proprietà autoredraw=True), poi metti un button e una textboxcodice:Private Sub Zoom(percZoom As Double) Picture1.Cls Picture1.PaintPicture picBuff.Picture, 0, 0, picBuff.Picture.Width * (percZoom / 100), picBuff.Picture.Height * (percZoom / 100) End Sub Private Sub Command1_Click() Zoom CDbl(Text1.Text) End Sub Private Sub Form_Load() picBuff.Picture = LoadPicture("c:\tuaImmagine.jpg") Picture1.PaintPicture picBuff.Picture, 0, 0, picBuff.Picture.Width, picBuff.Picture.Height End Sub
Nella TextBox metti la percentuale che vuoi per l'immagine e poi clicchi sul button...
Anche per il pan non è difficile, solo che bisogna fare qualche controllo in più e fare in modo di eliminare lo sfarfallio dell'immagine quando la si muove, tramite api.
Questa parte richiede un po' più codice, e ora mi cala la palpebra..![]()
Comunque devi giocare con l'evento mouseMove..e altre cosucce.. intanto prova.. poi magari vedo se ti trovo qualche link dove prendere spunto..
![]()

Rispondi quotando