A ver lo acabo de hacer y es bastante sencillo pon la propiedad dragmode de imagen en automatico luego pon este codigo
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Left = X
Image1.Top = Y
End Sub
con el puedes mover el control image dentro de tu formulario arrastrando la imagen con el raton como toda la vida en tiempo de ejecucion , lo he probado y me funciona .....
Este código te permite mover el control por el formulario y lo posiciona correctamente.
________________________________________________________
Option Explicit
DefLng A-Z
Private mx As Single, my As Single
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
With Image1
.Drag vbEndDrag
.Move X - mx, Y - my
End With
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag vbBeginDrag
mx = X: my = Y
End Sub
________________________________________________________
Espero que te sirva
Saludos Ruri
Valora esta respuesta
0
Comentar
RE:Mover una imagen con el mouse
Publicado por jose willians (1 intervención) el 15/02/2013 18:23:07
Disculpa amigo y como haria para montar una imagen sobre otra gracias
Valora esta respuesta
0
Comentar
RE:Mover una imagen con el mouse
Publicado por adriana (1 intervención) el 24/05/2013 04:04:33
Yo necesito mover imagenes con el mouse y probé las dos respuestas y me funcionaron, pero en realidad preferiría que se viera la imagen en toda su trayectoria. Si alguien tiene un código que no sea muy complicado se lo agradezco.