Il messaggio WM_DROPFILES si verifica quando l'utente trascina e gocce di un'icona o il testo da una posizione a altra nell'applicazione. Per utilizzare il messaggio di Windows, è necessario importare la destra DLL di API di Windows e chiama la funzione di messaggio in codice. Windows permette qualsiasi linguaggio di programmazione..--compreso VBA..--per eseguire funzioni API, purché si include il file DLL nel codice sorgente.
Istruzioni
1
Aprire il VBA di programmazione software e il file VBA che si desidera modificare.
2
Includere il file DLL di shell nella parte superiore del vostro codice. Aggiungere l'istruzione seguente al file:
Private Declare Function DragQueryFile Lib "shell" (ByVal wParam As Integer,
ByVal Index As Integer, ByVal lpszFile As Any, ByVal BufferSize As Integer)
As Integer
Devono copiare e incollare l'istruzione sopra esattamente come indicato, poiché ognuna di queste frasi e i valori restituiti sono definiti nel file DLL di API di Windows.
3
Aggiungere la funzione VBA che elabora la funzionalità di trascinamento della goccia processo utilizzando l'API di Windows dell'utente. Copiare e incollare il codice seguente al file:
goccia. MsgList(0) = WM_DROPFILES
drop.hWndTarget = Me.hWnd
goccia. MsgPassage(0) = 1
DragAcceptFiles Me.hWnd, True
4
Salvare il file e fare clic sul pulsante "Esegui" nel vostro editor per testare il nuovo codice nel debugger.