Ejemplos usando el Api de windows para Visual basic

14- Hacer Arrastre o drag de controles - API SendMessage y RelaseCapture

<Volver> - Anterior - Siguiente

Contenido:

Ejemplo 1 ( Con Api )
Ejemplo 2 ( Sin Api )
Relacionados

Ejemplo 1 ( Utilizando el Api )

Este ejemplo muestra como hacer un arrastre o Drag Drop de controles que posean la propiedad HWND con las funciones SendMessage y RelaseCapture

Colocar los siguiente controles en un Formulario mas o menos como está en el gráfico

Un control TextBox -> Text1
Un CommandButton ->Command1
Un PictureBox -> Picture1
ListBox -> List1

Hacer Drag de controles utilizando el Api de Windows

Cuando se selecciona un elemento del control List1, que muetra los controles, se podrá arrastrar ese control.

El parámetro que se le pasa a SendMessage para arrastrar un determinado control, son:

El primer parámetro es el HWND del control
En el segundo el mensaje WM_NCLBUTTONDOWN
El tercero la constante HTCAPTION

Pero antes de llamar a SendMessage hay que llamar a RelaseCapture. Todo esto debe estar implementado en el evento MouseMove del control que se le quiere hacer un Drag o arrastre.

Código fuente en el formulario

Option Explicit '------------------------------------ ' Declaraciones Api '------------------------------------ ' 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 para anviarle a SendMessage Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Dim ret As Long Private Sub Form_Load() 'cargamos el control List con los controles List1.AddItem "Command1" List1.AddItem "Picture1" List1.AddItem "Text1" End Sub '------------------------------ ' Drag para el CommandButton '------------------------------ Private Sub Command1_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) Call ReleaseCapture 'Si es el botón izquierdo If Button = 1 Then If List1 = "Command1" Then 'indicamos el hwnd del objeto a mover y la pasamos las constantes ret = SendMessage(Command1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End If End Sub '------------------------------ ' Drag para el PictureBox '------------------------------ Private Sub Picture1_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) Call ReleaseCapture If Button = vbLeftButton Then If List1 = "Picture1" Then ' Pasamos el hwnd del objeto a mover ret = SendMessage(Picture1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End If End Sub '------------------------------ ' Drag para el textBox '------------------------------ Private Sub Text1_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) Call ReleaseCapture If Button = 1 Then If List1 = "Text1" Then 'indicamos el hwnd del objeto a mover y la pasamos las constantes ret = SendMessage(Text1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End If End Sub

Ejemplo 2 - Sin el Api

Este otro ejemplo enviado por Ivo Scavuzzo, realiza un drag drop sobre un Commandbutton, pero sin usar el Api, usando la función Drag del control.

Colocar un control Commandbutton en el formulario

Código fuente

Private DragX As Integer Private DragY As Integer Private Sub Command1_MouseDown(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) If Button = 1 Then ' comienza el drag Command1.Drag 1 DragX = X DragY = Y End If End Sub Private Sub Command1_MouseUp(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) ' suelta Command1.Drag 2 End Sub 'Realiza el drag del objeto sobre el form '''''''''''''''''''''''''''''''''''''''''''' Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Move (X - DragX), (Y - DragY) End Sub Private Sub Form_Load() Command1.Caption = "Arrastra este commandbutton" Command1.Move 0, 0, 3000, Command1.Height End Sub

Relacionados

Drag&Drop - Ejemplos

Buscar en Recursos vb