none
Mover un label a izquierdas o derecha cuando haces click con el raton RRS feed

  • Pregunta

  • Buenas no consigo mover un label a la izquierda o derecha al hacer clik con el raton 

    este es el codigo que uso

     Private xx As Integer = 0
        Private yy As Integer = 0
    Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs)
            xx = e.X
            yy = e.Y
        End Sub
        
        Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs)
            If e.Button = MouseButtons.Left Then
                Label1.Left = (Label1.Left + e.X) - xx
                'button1.Top = (button1.Top + e.Y) - y
            End If
        End Sub

    miércoles, 2 de mayo de 2018 7:24

Todas las respuestas

  • Con el código que pones el label se va a mover a izquierda o derecha al hacer clic sobre el con el botón izquierdo de ratón y mover el ratón a izquierda o derecha sin soltar el botón. ¿Qué es lo que quieres hacer?

    Saludos, Javier J

    miércoles, 2 de mayo de 2018 8:20
  • Buenas javier, Gracias por responder 

    lo que quiero conseguir que cuando de click pueda mover a izquierda o derecha y cuando suelte el raton se quede donde he soltado

    Gracias

    miércoles, 2 de mayo de 2018 10:14
  • Y eso es lo que hace.

    Si también quieres que se mueva arriba o abajo debes modificar la línea que tienes marcada como comentario y dejarla así:

    Label1.Top = (Label1.Top + e.Y) - yy

    Comprueba que haces clic en el label y que mueves el ratón sin soltar el botón izquierdo.

    Doy por hecho que no tienes definidas propiedades del label que bloqueen su movimiento como puede ser Dock que debe tener el valor None.


    Saludos, Javier J

    miércoles, 2 de mayo de 2018 10:40