Cómo utilizar WM_DROPFILES en VBA

El mensaje WM_DROPFILES se produce cuando el usuario arrastra y suelta un icono o texto de un lugar a otro en su aplicación. Para utilizar el mensaje de Windows , debe importar el derecho DLL API de Windows y llamar a la función de mensaje en el código. Windows permite que cualquier lenguaje de programación - incluyendo VBA - para ejecutar funciones de la API , siempre y cuando incluya el archivo DLL en el código fuente . Instrucciones
1

Abra su software de programación VBA y el archivo VBA que desea editar .
2

Incluir el archivo DLL cáscara en la parte superior de su código. Agregue la siguiente instrucción al archivo:

Private Declare Function DragQueryFile Lib " shell" ( ByVal wParam As Integer , Index ByVal As Integer , ByVal lpszFile Como Any, ByVal BufferSize As Integer ) As
Integer < p> debe copiar y pegar la declaración anterior tal y como se muestra , ya que cada una de estas frases y valores de retorno se definen en el archivo DLL de API de Windows.
3

Agregar la función VBA que los procesos de proceso de arrastrar y soltar del usuario utilizando la API de Windows . Copia y pega el siguiente código al archivo :

drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , Verdadero
4 < p> Guarde el archivo y haga clic en el botón "Ejecutar " en el editor de probar el nuevo código en el depurador.