Con estas rutinas puedes
mover un control o un formulario de manera eficiente, solo tienes que agregar
las variables e incluir el codigo dentro de los eventos '_mousedown' y
'_mousemove' del control.
Lo primero que debes hacer es declarar dos variables para almacenar las
coordenadas 'X' y 'Y' del control, en este caso 'xIni' y 'yIni' de la siguiente
manera.
Option Explicit
Private xIni As Single
Private yIni As Single
Luego
de esto les asignamos la posicion inicial del control en el evento
'_MouseDown', como se muestra a continuacion:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Asignacion de las coordenadas 'X' y 'Y' del Control
xIni = X
yIni = Y
End Sub
Y
por ultimo le agregamos a la posicion, la diferencia entre la coordenada actual
y la coordenada inicial. Debemos verificar que se este presionando el boton del
mouse o sino se movera siempre que movamos el mouse.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Verificar que se presione el Boton del Mouse
If Button = 1 Then
Me.Top = Me.Top + (Y - yIni)
Me.Left = Me.Left + (X - xIni)
End If
End Sub
Como
puedes ver el metodo es sumamente sencillo, pero igualmente eficiente.
Lo puedes utilizar tanto en Formularios como en Controles siempre que tengan
los eventos '_MouseDown' y '_MouseMove'.
