Mover un Form sin caption

Listado a insertar en un módulo (.bas)

'Constantes para SendMessage
Global Const WM_LBUTTONUP = &H202
Global Const WM_SYSCOMMAND = &H112
Global Const SC_MOVE = &HF010
Global Const MOUSE_MOVE = &HF012

#If Win32 Then
    Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
                        ByVal wParam As Long, lParam As Long) As Long
#Else
    Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, _
                        ByVal wParam As Integer, lParam As Any) As Long
#End If

Listado a insertar en el formulario (.frm)

'
'Este código se pondrá en el Control_MouseDown...
'
Dim lngRet As Long

'Simular que se mueve la ventana, pulsando en el Control
If Button = 1 Then
    'Envía un MouseUp al Control
    lngRet = SendMessage(Control.hWnd, WM_LBUTTONUP, 0, 0)
    'Envía la orden de mover el form
    lngRet = SendMessage(FormX.hWnd, WM_SYSCOMMAND, MOUSE_MOVE, 0)
End If
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s