Ver Mensaje Individual
  #2 (permalink)  
Antiguo 03 de octubre,2009, 21:43
Codigo47 Codigo47 está desconectado
Member
Nivel Experto por Msg
 
Fecha de Ingreso: feb 2009
Mensajes: 71
Predeterminado

Hola Sebaxxd,

Este código va a copiar la parte imagen del picture1 y la muestra en el picture2.
Para seleccionar el area de la foto hay que hacer 2 clicks:
El 1ro en el borde superior izquierdo
Y el 2do en el borde inferior derecho del area

Cuando hagas el 2do click se va a mostrar la imagen en el picture2.

El picture2 debe tener una imagen asignada (aunque sea una imagen en blanco).
Y faltaría hacer algún efecto para que haga un recuadro cuando se seleccionas el area (eso seguilo vos).

Acá va el código:

Código:
Public Class Form1
    Dim x1, x2, y1, y2 As Integer

    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If x1 = 0 Then
            x1 = e.X
            y1 = e.Y
        Else
            x2 = e.X
            y2 = e.Y

            Dim SrcBMP As New Bitmap(PictureBox1.Image)
            Dim TrgBMP As New Bitmap(PictureBox2.Image)

            For i As Integer = x1 To x2
                For j As Integer = y1 To y2
                    TrgBMP.SetPixel(i - x1, j - y1, SrcBMP.GetPixel(i, j))
                Next
            Next

            PictureBox2.Image = TrgBMP

            x1 = 0
            y1 = 0
        End If
    End Sub
End Class
Espero te sirva, saludos.
Responder Citando