Sección de códigos , trucos y ejemplos para visual basic

57 - Hacer drag de un formulario

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Ejemplo de como hacer un Drag o arrastre de un formulario, por ejemplo para cuando el formulario no tiene barra de título

La funcion Api SendMessage en el evento MouseMove del control que queremos arrastrar, se le pasa el Hwnd del control a mover y una constante llamada HTCAPTION. ( en este caso se le pasa el HWND del formulario ). Esto hace que se pueda realizar el Drag al objeto. Luego para liberarlo ( en el evento MouseUp ) se utiliza la función Api ReleaseCapture sin ningún parámetro

Nota: se puede emplear este ejemplo para cualquier control que posea la propiedad Hwnd

Código fuente en el formulario:

Option Explicit 'Función api SendMessage Private Declare Function SendMessage _ Lib "User32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long 'Función api ReleaseCapture Private Declare Sub ReleaseCapture Lib "User32" () ' Constantes / mensajes Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Form_MouseMove( _ Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) Iniciar_Drag Me, Button End Sub Sub Iniciar_Drag(frm As Form, boton_Mouse As Integer) Dim Ret As Long 'Llamamos a ReleaseCapture Call ReleaseCapture 'Si es el botón izquierdo el que presionamos entonces hacer el DRAG If boton_Mouse = vbLeftButton Then ' Indicamos el hwnd del objeto a mover y la pasamos las constantes Ret = SendMessage(frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End Sub

Ejemplo 2

Otra muestra de la función ReleaseCapture para mover un form sin titlebar

Proyecto para descargar , que muestra como usar un formulario que no tiene barra de título, y se utiliza un picturebox para hacer el arrastre mediante las funciones Releasecapture y SendMessage.

Para la barra de título, se utiliza un gráfico de fondo que se carga en el picbox que hace de barra, como se ve en esta captura de pantalla : ( También se le crea un borde mediante un control shape, y los menues y botones de comandos están hechos con un control ocx. )

Descargar

Recursos vb - Enlaces relacionados

Buscar en Recursos vb