Ver Mensaje Individual
  #3 (permalink)  
Antiguo 04/12/2010, 08:43
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 8 meses
Puntos: 29
Respuesta: Cortar una imagen

He encontrado este código que te muestra como cortar o copiar parte de una imagen de un picturebox. Quizá te ayude.

http://www.recursosvisualbasic.com.a...tar-imagen.htm

Yo he separado esta parte y he creado una sub como ejemplo.
Esta sub, en teoria (no la he probado por separado), copia un trozo de un picture a otro:

Código vb:
Ver original
  1. Sub CopiarPicToPic(PicOrigen As PictureBox, PicDestino As PictureBox, ByVal x1 As Single, ByVal x2 As Single, ByVal y1 As Single, ByVal y2 As Single)
  2.        
  3.         PicDestino.Cls
  4.         DoEvents
  5.        
  6.         PicDestino.Width = Abs(x1 - x2)
  7.         PicDestino.Height = Abs(y1 - y2)
  8.    
  9.         If x1 < x2 And y1 < y2 Then
  10.             DoEvents
  11.            
  12.             PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
  13.                                                  Abs(x2 - x1), Abs(y2 - y1), _
  14.                                                  x1, y1, _
  15.                                                  Abs(x2 - x1), Abs(y2 - y1)
  16.                                                    
  17.         ElseIf x1 > x2 And y1 > y2 Then
  18.             DoEvents
  19.             PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
  20.                                                  Abs(x1 - x2), Abs(y1 - y2), _
  21.                                                  x2, y2, _
  22.                                                  Abs(x1 - x2), Abs(y1 - y2)
  23.  
  24.        
  25.         ElseIf x1 > x2 And y1 < y2 Then
  26.  
  27.             DoEvents
  28.            
  29.             PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
  30.                                                 x1 + x2, y1 + y2, _
  31.                                                 x2, y1, _
  32.                                                 x1 + x2, y1 + y2
  33.            
  34.         ElseIf x1 < x2 And y1 > y2 Then
  35.             DoEvents
  36.             PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
  37.                                                 x1 + x2, y1 + y2, _
  38.                                                 x1, y2, _
  39.                                                 x1 + x2, y1 + y2
  40.         End If
  41.         DoEvents
  42.            
  43. End Sub

Yo me la voy a guardar por ahí por si acaso...

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!