Vorrei solo applicare lo zoom ad immagine nella picture box, ho provato e riprovato....c'è qualcuno che mi può aiutare a correggere questa sintassi?
Sono fuori di testa...
Code
---------------------------------------------------------------------
NomePicture.PaintPicture(Immagine, PosizioneX, PosizioneY, Larghezza, Altezza
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++
'Fattore di riduzione
Dim Riduz as Single
Dim Img as stdPicture
'Al load del form
Private Sub Form_Load()
'Carica il file Immagine.bmp nella cartella
'del programma
Img = LoadPicture(App.Path & "\Immagine.bmp")
Call Ridisegna()
End Sub
'Click sul pulsante Zoom+
Private Sub ZoomInc_Click()
Riduz = Riduz * 1.5
Call Ridisegna()
End Sub
'Click sul pulsante Zoom-
Private Sub ZoomDec_Click()
Riduz = Riduz / 1.5
Call Ridisegna()
End Sub
'Sub che ridisegna l'immagine
Private Sub Ridisegna()
call Picture1.PaintPicture(Img,0,0,Img.Width * Riduz,Img.Height * Riduz)
End sub
