Hay está el codigo para vb.net.
Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)
bitmap = bitmap.GetThumbnailImage(control.Image.Width, control.Image.Height, delegat, IntPtr.Zero)
Private Function ECodigoExtra() As Boolean
Return False
End Function
No me funciona porque yo lo que tengo es el siguiente codigo:
'Elegimos la imagen izquierda que querramos
OpenFileDialog1.Filter = "Todos los archivos|*|JPEG|*.jpg"
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
Dim jpg As New Bitmap(OpenFileDialog1.FileName)
Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)
jpg = jpg.GetThumbnailImage(PictureBox1.Image.Width = 200, PictureBox1.Image.Height = 224, delegat, IntPtr.Zero)
PictureBox1.Image = CType(jpg, Image)
End If
Y me da error a la hora de hacer el thumbnailImage
Es que lo que yo quiero hacer es escoger una foto con el OpenFileDialog y redimensionarla y abrirla con el tamaño que yo quiera.