Cómo utilizar WM_DROPFILES en VBA

El mensaje WM_DROPFILES se produce cuando el usuario arrastra y deja caer un icono o texto de un lugar a otro en su aplicación. Para utilizar el mensaje de Windows, debe importar la derecha DLL de API de Windows y llamar a la función de mensaje en su 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 VBA y el archivo que desea editar.

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

Private Declare Function DragQueryFile Lib "cáscara" (ByVal wParam como número entero,
Índice de ByVal como número entero, ByVal lpszFile como cualquiera, ByVal BufferSize como número entero)
As Integer

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 la API de Windows.

3 Añadir la función de VBA que procesa proceso de arrastrar y soltar del usuario utilizando la API de Windows. Copiar y pegar el siguiente código a su archivo:

drop.MsgList (0) = WM_DROPFILES
drop.hWndTarget = Me.hWnd
drop.MsgPassage (0) = 1
DragAcceptFiles Me.hWnd, True

4 Guarde el archivo y haga clic en el botón "Ejecutar" en el editor de probar el nuevo código en el depurador.