Visual Basic - Como muevo un control en modo de ejecucion

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado su posición en 27 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como muevo un control en modo de ejecucion

Publicado por J@m (195 intervenciones) el 13/09/2004 23:56:04
Como puedo mover un Label o un Image en modo de ejecicion utilizando el Mouse. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como muevo un control en modo de ejecucion

Publicado por Ruri (583 intervenciones) el 14/09/2004 13:20:54
El label y el image no son ventanas, así que no se pueden utilizar funciones del API. Tenés que utilizar dos variables de bandera y un par de eventos. Las banderas son simplemente dos variables a nivel módulo, por ejemplo:
Private Mx as single, My as single. Luego, en el evento mouseDown del objeto que querés mover guardás la posición del mouse relativa al control.:
'Corrección
if Button <> vbLeftButton then exit sub
Mx=x
My=y

En el evento MouseUp del formulario escribís el código que mueve el control
if Button <> vbLeftButton then exit sub
Image.move x-mx, y - my

Espero que te sirva

Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar