Codice per un'applicazione Windows con anteprima dell'immagine ridimensionata in una picturebox e salvataggio differito.
Codice per un'applicazione web con ridimensionamento e salvataggio immediato della foto.codice:Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim x As New ArtLabs.Pictures.Engine Dim ImmagineGrande As Bitmap ImmagineGrande = New Bitmap("C:\percorsofile.jpg") PictureBox1.Image = x.ResizeImage(ImmagineGrande, New Size(200, 300), True) x.SaveToDisk(PictureBox1.Image, "c:\percorsodidestinazione.jpg", System.Drawing.Imaging.ImageFormat.Jpeg, 100) x.Dispose() x = Nothing End Sub
In quella classe esistono diversi "metodi" per il trattamento dell'immagine e il relativo salvataggio.codice:Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As New ArtLabs.Pictures.Engine x.ResizeToFile(Server.MapPath("/images/big/foto.jpg"), Server.MapPath("/images/small/foto.jpg"), _ New System.Drawing.Size(300, 300), _ System.Drawing.Imaging.ImageFormat.Jpeg, _ True, 100) x.Dispose() x = Nothing End Sub

Rispondi quotando