Foro de programacion

sebaaxd · #1 (**permalink**) 01 de octubre,2009, 19:09

Necesito ayuda porfa !!!!! Resulta q estoy haciendo un programa en vb.net 2005 de una web cam q uno saca una foto y la manda a otro form donde aparece la captura de la foto , eso lo tengo listo.
Lo q necesito y no puedo encontrar, q cuando ya tengo la foto en un pictureBox haya alguna forma que con el mouse se seleccione un area de la foto y luego se muestre en otro picturebox, como una forma de vista previa para luego guardarla.
Si alguien sabe como hacer eso para seleccionar una parte de la imagen y se muestre esa seleccion en otro picture se lo agradezco muchoooo

saluudos ^^

Codigo47 · #2 (**permalink**) 03 de octubre,2009, 21:43

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.