Mover imagen arrastrandola con el mouse

matiasuy
06 de Febrero del 2004
Necesito como hacer para poder mover una imagen por un formulario arrastrándola con el mouse, en tiempo de ejecución por supuesto.

Si alguien tiene alguna pista se lo voy a agradecer !!!

bezael
06 de Febrero del 2004
HOLA matiasuy
La verdad que solo soy un novato y quizas mi solucion no se muy buena, pero a lo que llega una buena, aki esta.

Si tiene dos Picture, por ejemplo, con este ejemplo podra arrastra de un Picture a Otro.

La clave es el Evento DragDrop

**************************************************************
Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
Picture2.Picture = Source
Picture1.Picture = LoadPicture()
End Sub
**************************************************************************
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.Picture = Source
Picture2.Picture = LoadPicture()
End Sub
************************************************************************
Ha uno de los dos le agregar una imagen en tiempo de diseño, y ya esta.
AKI TE ENVIO UN EJEMPLO
[email protected]