Bueno al final he podido hacer lo que quería, aquí teneis mi ejemplo:
ahora estoy mirando de poder poner un texto dentro de la imágen.. dibujar texto o poner texto dentro de la misma imágen que la foto.
saludos
si alquien sabe como poner texto ...
Código:
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()