Es posible cortar una imagen en trozos ??
Como lo hago mediante visual basic ?

Gracias,
Skipped

hola,fijate si te sirve este ejemplo, esta donde dice Ejemplo 5.

http://www.recursosvisualbasic.com.a...graficos-2.htm

y aca te pongo un ejemplo facil de como cortar una seccion de una imagen sin usar api's.tenes que tener un picture1 para la imagen original y un picture2 para pasar la imagen cortada y un boton para cortar la imagen.

En el Boton pone:

Código:

Private Sub Command1_Click()
Picture2.Cls
For x = 0 To Picture1.ScaleWidth / 2
For y = 0 To Picture1.ScaleHeight / 2
Picture2.PSet (x, y), Picture1.Point(x, y)
Next y
Next x
End Sub

eso solamente la corta una vez, pero vos le agregas otra sentencia For como esas y la podes cortar en los pedazos que quieras indicandole las cordenadas.

saludos.

Edited by: seba123neo

mmm yo se como cortar la imagen...ya lo hize pero lo que no se es como guardar la imagen cortada......

se guarda con el metodo
SavePicture, por ejemplo:

Código:

SavePicture Picture1, "C:\Imagen.BMP"

o sino fijate aca:

http://www.recursosvisualbasic.com.a...do-grafico.htm

saludos.

Ya lo hice así:
Puse tambien una funcion mas ordenada en la guia de recursos
http://www.canalvisualbasic.net/foru....asp?TID=31524

Código:

Private Sub Trozar()
Dim anchopieza As Integer
Dim altopieza As Integer
Dim vertical As Integer
Dim horizontal As Integer
Dim ubicaciontrozos As String

ubicaciontrozos = SaveFile(Me.hwnd, "*.jpg", "Trozos", CurDir, "Trozo")

'para el nombre de la imagen
j = 0

'para el tamano de cada pieza
anchopieza = Pic_Origen.Width \ Text1.Text
altopieza = Pic_Origen.Height \ Text2.Text

'ajusta el pic de destino al tamano de la imagen
Pic_Destino.Height = altopieza
Pic_Destino.Width = anchopieza
 
'las rutinas para las piezas a lo ancho y a lo alto
For vertical = 0 To (Text2.Text - 1)
For horizontal = 0 To (Text1.Text - 1)
 
'conserva los graficos
Pic_Origen.AutoRedraw = True
Pic_Destino.AutoRedraw = True
 
' Limpia - Borra los dos picture
Pic_Destino.Cls
Pic_Origen.Cls
 
'establece la ubicacion de las piezas a extraer
Pic_Destino.PaintPicture Pic_Origen.Picture, 0, 0, , , horizontal * anchopieza, vertical * altopieza, anchopieza, altopieza

'prepara para los nombres de las imagenes extraidas
j = j + 1

'guarda cada pieza extraida
SavePicture Pic_Destino.Image, ubicaciontrozos & Format(j, "0#") & ".jpg"
 
'termina la rutina de las piezas a a lo ancho
Next horizontal
 
'termina la rutina de las piezas a a lo alto
Next vertical

End Sub

Lo subo a la guia de recursos por si a alguien le sirve

Edited by: Skipped