SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MindEye en Jueves 8 de Enero de 2004, 00:39

Título: Mover Un Control Imagen Con El Raton
Publicado por: 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.
Título: Re: Mover Un Control Imagen Con El Raton
Publicado por: Brroz en Jueves 8 de Enero de 2004, 12:28
Hola MindEye.

Una forma sencilla, prueba así:

Código: Text
  1.  
  2. Private Sub Image1_MouseMove( _
  3. Button As Integer, Shift As Integer, X As Single, Y As Single)
  4.     If Button = 1 Then
  5.         Picture1.Left = Picture1.Left + X
  6.         Picture1.Top = Picture1.Top + Y
  7.     End If
  8. End Sub
  9.  
  10.  

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

Abur.
Título: Re: Mover Un Control Imagen Con El Raton
Publicado por: Brroz 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
  1.  
  2.  
  3. Private sngX As Single, sngY As Single
  4.  
  5. Private Sub Image1_MouseDown( _
  6. Button As Integer, Shift As Integer _
  7. , X As Single, Y As Single)
  8.    If Button = 1 Then
  9.        sngX = X
  10.        sngY = Y
  11.    End If
  12. End Sub
  13.  
  14. Private Sub Image1_MouseMove( _
  15. Button As Integer, Shift As Integer _
  16. , X As Single, Y As Single)
  17.    If Button = 1 Then
  18.        Image1.Left = Image1.Left + (X - sngX)
  19.        Image1.Top = Image1.Top + (Y - sngY)
  20.    End If
  21. End Sub
  22.  
  23.  
  24.  

Abur.