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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

27 - Hacer un Drag Drop o arrastre de archivos

Actualización

Ejemplo actualizado para poder arrastrar ficheros y directorios hacia nuestra aplicación utilizando un módulo de clase

El proyecto tiene un formulario que permite arrastrar los archivos hacia un ListBox. también tiene dos funciones para poder recuperar el ícono asociado mediante el Api ExtractAssociatedIcon, y la descripción del mismo usando la función Api SHGetFileInfo

Nota: El drag se puede realizar solo en controles que posean la propiedad Hwnd

Para usar el módulo se debe instanciar con WithEvents para poder usar el evento que se dispara cuando se están colocando archivos en el control.

Para obtener los elementos arrastrados se debe usar el evento DragFiles, que tiene como parámetro el Path, el Hwnd del objeto, y un parámetro opcional para saber el tipo : : Directorio, Archivo o Root Path

Para iniciar la operación de arrastre, ejecutar el método InitDrag, y para detener el método TerminateDrag, pasándole a las dos funciones los hwnd de los controles

Descargar

Ejemplo que muestra como podemos por ejemplo arrastrar archivos desde Windows hacia un ListBox, y que aparezcan las rutas de los mismos en el control.

Las funciones Api que se utilizan para realizar esto son: DragAcceptFiles, DragQueryFile, SetWindowLong y CallWindowProc

Formulario con las rutas al hacer el drag de los archivos y directorios

vista del formulario de ejemplo en vb para hacer un drag and drop de archivos hacia el control listbox

Ejemplo

Colocar un control ListBox llamado List1
luego arrastrar ficheros o carpetas al control

Código fuente en un módulo bas

' En un módulo BAS '''''''''''''''''''''''''''' Option Explicit '*************************************************************************** 'El formulario que va a recibir los archivos arrastrados desde el explorador 'debe registrarse en el sistema mediante una llamada a DragAcceptFiles 'y de esta menera poder habilitar el servicio de Drag 'Una vez registrado en el sistema, recibiremos el mensaje WM_DROPFILES cada 'vez que uno o varios archivos sean arrastrados desde el explorador de 'windows a nuestro formulario, por lo que debemos escribir el _ código necesario para su manejo '*************************************************************************** Public Declare Sub DragAcceptFiles Lib "shell32.dll" ( _ ByVal hWnd As Long, _ ByVal fAccept As Long) '*************************************************************************** 'La función DragQueryFile nos servirá para saber cuántos archivos están siendo 'arrastrados, el nombre de cada uno de ellos y el tamaño del buffer necesario 'para almacenar ese nombre '*************************************************************************** Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" ( _ ByVal hDrop As Long, _ ByVal UINT As Long, _ ByVal lpStr As String, _ ByVal ch As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, _ ByVal hWnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long 'Constantes y variables Public Const WM_DROPFILES = &H233 Public Const GWL_WNDPROC = -4 Public lProcOld As Long Public Function Drag_Drop_ListBox(ByVal hWnd As Long, _ ByVal Mensaje_Windows As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim n_Archivos As Long Dim x As Long Dim Archivo As String * 128 If Mensaje_Windows = WM_DROPFILES Then 'Este bucle determina cuantos archivos se estàn arrastrando 'El -1 le indicamos que nos retorne todos los archivos que se arrastran n_Archivos = DragQueryFile(wParam, -1, Archivo, 127) 'Luego se hace un bucle For x = 1 To n_Archivos 'Esta llamada a DragQueryFile nos devuelve el nombre del archivo Call DragQueryFile(wParam, x - 1, Archivo, 127) 'Lo agregamos al List Form1.List1.AddItem (Archivo) Next x Exit Function End If Drag_Drop_ListBox = CallWindowProc(lProcOld, _ hWnd, Mensaje_Windows, _ wParam, lParam) End Function

Código fuente en un formulario

' En un formulario: '''''''''''''''''''''''''''' Option Explicit 'Colocar un ListBox y arrastrar archivos desde windows '**************************************************** Private Sub Form_Load() 'DragAcceptFiles permite registrar el drag de archivos, _ el segundo parametro lo habilita y False lo deshabilita Call DragAcceptFiles(hWnd, True) lProcOld = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf Drag_Drop_ListBox) End Sub Private Sub Form_Unload(Cancel As Integer) 'Lo deshabilitamos Call DragAcceptFiles(hWnd, False) Call SetWindowLong(hWnd, GWL_WNDPROC, lProcOld) End Sub

Recursos vb 6 - Enlaces relacionados:

Recursos Visual basic.Net - Enlaces relacionados

Ejemplo de la propiedad AllowDrop y los eventos DragEnter y DragDrop

Buscar en Recursos vb