mover boton poniendo mouse sobre el sin clikear

[trevol]

hola amigos me gustaria mover un boton alrededor de un formulario pero sin tener que hacer click en el, solo poniendome encima y moviendo hacia arriba, izquierda,derecha, abajo. me gustaria que me indicaran como enfocar el ejercicio, ya que no manejo muy bién el evento movemouse.

[erbuson]

Iba a preguntarte para que querías esta tontería, pero mejor te pongo un ejemplo y tu mismo te das cuenta del porque iba a preguntártelo.

Código vb:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Move Command1.Left + X - Command1.Width / 2, Command1.Top + Y - Command1.Top / 2
End Sub
 

Lo normal es que el usuario deba mantener pulsado el boton para mover, no solo mover con pasar el mouse por encima.

De todos modos, lo que tu preguntas es lo que mas o menos hace este código.

Saludos

[trevol]

muchas gracias.

[trevol]

hola la verdad para que me funcionara he tenido que poner los denominadores que estaban a 2 a 10 para poder desplazar el objeto por todo el formulario. Pero lo que a mi me gustaria es entender como funciona tu codigo, puedes explicarmelo, gracias.

[erbuson]

Hola la idea en la rutina que te pase es la siguiente:

Como sabrás el Top y el Left de un control son las coordenadas Izquierda/Superior donde está ubicado el mismo.

La x y la y son las coordenadas sobre el control, teniendo en cuenta que el Top y Left del mismo son x = 0 e y= 0

Lo que se me ocurrio fue cuando pasas sobre el control mover el mismo al Left + x y al Top +y pero como me desplazaba siempre a 0,0 le añadí la mitad del ancho y alto del control.

Lo demás probar y ver si funcionaba.

Efectivamente haciendo como tu dices con el divisor a 10, el desplazamiento es mas suave debido al movimiento del mouse.

Saludos

[trevol]

gracias, pero exactamente que hace command1.width/2 y command1.top/2

[erbuson]

Hola, a raiz de tu pregunta acabo de ver que con la rapidez en conestar cometi un error, ya que mi intención era añadir la mitad del ancho y la mitad del alto por lo que debía dividir el Width y el Height y cometí un error añadiendo el Width y el Top

Saludos

[trevol]

Gracias de nuevo, erbuson saludos.