ScaleImage

Public Sub Ridimensiona()
Dim proporzione As Double
'L'immagine viene temporaneamente resa invisibile

imgAnteprima.Visible = False
'La proprieta' Stretch e' disattivata per consentire

'all'immagine di assumere le dimensioni naturali

imgAnteprima.Stretch = False
imgAnteprima.Picture = LoadPicture(C:\immagini\pippo.jpg)
'Viene calcolato il rapporto larghezza/altezza

proporzione = imgAnteprima.Width / imgAnteprima.Height
'Viene riattivata la proprieta' Stretch

imgAnteprima.Stretch = True
If proporzione > 1 Then
'Se orizzontale puo' essere larga al massimo 2295 Twips

imgAnteprima.Width = 2295
'E di conseguenza sara' alta..

imgAnteprima.Height = Int(2295 / proporzione)
Else
'Se verticale puo' essere alta al massimo 2295 Twips

imgAnteprima.Height = 2295
'E di conseguenza sara' larga..

imgAnteprima.Width = Int(2295 * proporzione)
End If
'L'immagine torna visibile dopo il ridimensionamento

imgAnteprima.Visible = True
End Sub

'Modificare i valori delle proprieta' Width, Height in base

'alle dimensioni che le proprieta' del controllo Image hanno

'nella progettazione del form. Si consiglia di creare un

'controllo Image quadrato.

Inserire la procedura Ridimensiona in un form o in un modulo
il percorso dell'immagine che sara' utilizzato per questo
esempio e' "C:\immagini\pippo.jpg", dove PIPPO.JPG e'
l'immagine da visualizzare.