Recortar Imagen .BMP

[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"