Recortar Imagen .BMP

[intercambioseo]

Necesito abrir un .bmp y recortarlo con dimensiones fijadas por codigo y luego guardarlo, eso es todo. He encontrado cosas similares, pero no esa en particular, de hecho aqui en el foro, pero no funcionaban.

Gracias!

[David]

Iniciado por intercambioseo

Necesito abrir un .bmp y recortarlo con dimensiones fijadas por codigo y luego guardarlo, eso es todo. He encontrado cosas similares, pero no esa en particular, de hecho aqui en el foro, pero no funcionaban.

Gracias!

Puedes abrir el bmp con LoadPicture, recortarlo con PaintPicture y guardarlo con SavePicture.

Saludos

[intercambioseo]

Iniciado por David el Grande

Puedes abrir el bmp con LoadPicture, recortarlo con PaintPicture y guardarlo con SavePicture.

Saludos

Justamente tengo problemas con la parte de recortarlo

[David]

Iniciado por intercambioseo

Justamente tengo problemas con la parte de recortarlo

Bueno, debes tener dos PictureBox, y colocar el código siguiente:

Código:

 
Dim X As Single
Dim Y As Single
Dim vWidth As Single
Dim vHeight As Single
X = 0 'Desde donde queremos recortar horizontalmente
Y = 0 'Desde donde queremos recortar verticalmente
vWidth = 1000 'Ancho en twips que queremos recortar
vHeight = 1000 'Alto en twips que queremos recortar
'Cargamos la imagen C:\Imagen.bmp
Picture1.Picture = LoadPicture("C:\Imagen.bmp")
'Recortamos la imagen según los parámetros definidos
Picture2.AutoRedraw = True
Picture2.BorderStype = vbNone
Picture2.Width = vWidth
Picture2.Height = vHeight
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, X, Y, vWidth, vHeight
'Guardamos la imagen recortada en C:\Recortado.bmp
SavePicture Picture2.Image, "C:\Recortado.bmp"

[intercambioseo]

Muchas gracias, es justamente lo que necesitaba y funciona bien. He tenido que comentar la linea:

'Picture2.BorderStype = vbNone

Ya que si no lo hago me da un error. "Variable no definida", si la defino me da el error: "No se encontro el metodo o el miembro de datos"

Gracias nuevamente!

[David]

Iniciado por intercambioseo

Muchas gracias, es justamente lo que necesitaba y funciona bien. He tenido que comentar la linea:

'Picture2.BorderStype = vbNone

Ya que si no lo hago me da un error. "Variable no definida", si la defino me da el error: "No se encontro el metodo o el miembro de datos"

Gracias nuevamente!

Ah, cierto, es que escribí mal, debería ser:

Código:

 
Picture2.BorderStyle = vbNone