Come si fa a rimpicciolire le immagini?

[[-MaRcO3-]]

Originariamente inviato da sms
3^ cosa: se la larghezza è maggiore di un numero, allora ridimensiona, altrimenti no ..

grazie

Nel mio caso la bitmap che ho creato da un upload si chiama bmp
Ciao


Marco

 'Ricavo la larghezza dell'immagine
   width=Convert.ToInt32(bmp.Width)
   
   'Se è larghezza dell'immagine è maggiore di 760 pixel la ridimensiono
    if width>760
    
	'Fisso la larghezza a 760 pixel
	width=760
	
	'Ricavo l'altezza in proporzione
	height = Convert.ToInt32(width / bmp.Width * bmp.Height)
	
	'Creo la nuova immagine ridimensionata
	Dim immagineUpload as New System.Drawing.Bitmap(bmp, width, height)
	
	
	'Se il file termina con l'estensine .jpg 
	 if strFilePath.EndsWith(".jpg") Then
	

	'visualizzo la nuova immagine a schermo
	immagineUpload.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
    else
	
	'visualizzo immagine a video in formato .gif
	immagineUpload.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)

	'l'oggetto bitmap non mi serve più e lo cancello liberando risorse
	bmp.Dispose()
    end if