Nwlapcug.com


Come utilizzare WM_DROPFILES in VBA

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.