Programación General > Visual Basic 6.0 e inferiores

 Mover Un Control Imagen Con El Raton

(1/1)

MindEye:
- Buenas noches, sabria alguien decirme como puedo mover un control imagen de un lado para el otro, con el raton.

 - Gracias.

Brroz:
Hola MindEye.

Una forma sencilla, prueba así:


--- Código: Text --- Private Sub Image1_MouseMove( _Button As Integer, Shift As Integer, X As Single, Y As Single)    If Button = 1 Then        Picture1.Left = Picture1.Left + X        Picture1.Top = Picture1.Top + Y    End IfEnd Sub  
Otra forma... Arrancando una operación de arrastrar/colocar:

Abur.

Brroz:
Para que el resultado sea más satisfactorio (aparte de los gazapos del post anterior)...


--- Código: Text ---  Private sngX As Single, sngY As Single Private Sub Image1_MouseDown( _Button As Integer, Shift As Integer _, X As Single, Y As Single)   If Button = 1 Then       sngX = X       sngY = Y   End IfEnd Sub Private Sub Image1_MouseMove( _Button As Integer, Shift As Integer _, X As Single, Y As Single)   If Button = 1 Then       Image1.Left = Image1.Left + (X - sngX)       Image1.Top = Image1.Top + (Y - sngY)   End IfEnd Sub   
Abur.

Navegación

[0] Índice de Mensajes