Autor Tema: Mover Un Control Imagen Con El Raton (Leído 950 veces)

MindEye · « **en:** Jueves 8 de Enero de 2004, 00:39 »

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

- Gracias.

Brroz · « **Respuesta #1 en:** Jueves 8 de Enero de 2004, 12:28 »

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 If
End Sub
 
 

Otra forma... Arrancando una operación de arrastrar/colocar:

Abur.

Brroz · « **Respuesta #2 en:** Jueves 8 de Enero de 2004, 15:36 »

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 If
End 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 If
End Sub
 
 
 

Abur.

SoloCodigo

Autor Tema: Mover Un Control Imagen Con El Raton (Leído 950 veces)

MindEye

Mover Un Control Imagen Con El Raton

Brroz

Re: Mover Un Control Imagen Con El Raton

Brroz

Re: Mover Un Control Imagen Con El Raton