Il messaggio WM_DROPFILES si verifica quando l'utente trascina e lascia cadere una icona o il testo da una posizione a un'altra nell'applicazione. Per utilizzare il messaggio di Windows , è necessario importare il diritto API DLL di Windows e chiamare la funzione di messaggio in codice. Windows permette qualsiasi linguaggio di programmazione - tra VBA - per eseguire funzioni API finché si include il file DLL nel codice sorgente . Istruzioni
1

aprire il software di programmazione VBA e il file VBA che si desidera modificare .
2

includere il file DLL guscio nella parte superiore del vostro codice . Aggiungere la seguente istruzione al file :

Private Declare Function DragQueryFile Lib " guscio" ( ByVal wParam As Integer , ByVal Index As Integer , ByVal lpszFile As Any , ByVal BufferSize As Integer) Come
Integer < p > è necessario copiare e incollare l'istruzione sopra esattamente come appare , perché ognuna di queste frasi e valori di ritorno sono definiti nel file DLL di Windows API .
3

Aggiungi la funzione VBA che elabora processo di drag and drop dell'utente utilizzando l'API di Windows . Copiare e incollare il seguente codice al file :

drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , vero
4 < p > Salvare il file e fare clic sul pulsante "Esegui" nel vostro editor per testare il nuovo codice nel debugger .