leo
25 de Enero del 2005

Hola a todos,

tengo una aplicacion en la cual visualizo una imagen en un picturebox y necesito que con el mouse yo pueda seleccionar cualquier parte de la imagen y la pueda recortar. 驴como lo puedo hacer?

Muchas Gracias por su colaboraci贸n

en?
25 de Enero del 2005

leo, te doy un peque帽o ejemplo de como lo puedes hacer:
Agregas un Picture1 y un Picture2, y pegas este c贸digo en el formulario

*******************
Dim PosicionX As Integer, PosicionY As Integer

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then PosicionX = X: PosicionY = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, IIf(PosicionX < X, PosicionX, X), IIf(PosicionY < Y, PosicionY, Y), Abs(X - PosicionX), Abs(Y - PosicionY)
End If
End Sub
*******************

Para obtener un buen efecto visual te sugiero que a帽adas un Shape, con las propiedades:
- BorderStyle = 3 - Dot
- DrawMode = 6 - Invert
y lo uses a modo de mostrar la selecci贸n mientras arrastras con el mouse por encima de la imagen.

__
Un saludo.

Visitad el neonato foro de Visual Basic de Almustafa!!!
http://www.multiingenieria.com/robotica/Foro/