Foros del web, para los que viven de bits

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'comprime imágen
        Dim img As Bitmap

        Dim bmi As Bitmap = Image.FromFile("C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg")
        img = bmi
        SaveJPGWithCompressionSetting(img, "C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg22.jpg", Val(60))
        bmi.Dispose()



    End Sub

    Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
        Dim j As Integer
        Dim encoders As Imaging.ImageCodecInfo()
        encoders = ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next j
        Return Nothing
    End Function
    Private Sub SaveJPGWithCompressionSetting(ByVal image As Image, ByVal szFileName As String, ByVal lCompression As Long)

        Dim eps As EncoderParameters = New EncoderParameters(1)
        eps.Param(0) = New EncoderParameter(Encoder.Quality, lCompression)



        Dim ici As ImageCodecInfo = GetEncoderInfo("image/jpeg")

        image.Save(szFileName, ici, eps)

        image.Dispose()




        'reduce el tamaño a 600 x 450

        Dim im As New Bitmap(New Bitmap("C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg22.jpg"), 600, 450)
        im.Save("C:\Documents and Settings\xxx\Escritorio\Img1\Nenúfares.jpg2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

        im.Dispose()