Ako používať WM_DROPFILES vo VBA

Správa WM_DROPFILES nastane , keď užívateľ pretiahne a klesne na ikonu alebo text z jedného miesta na druhé vo vašej aplikácii . Ak chcete používať správy systému Windows , je nutné importovať správnu Windows API DLL a volanie funkcie správy vo vašom kóde . Windows umožňuje akýkoľvek programovací jazyk - vrátane VBA - spustiť API funkcií tak dlho , ako môžete zahrnúť DLL súbor v zdrojovom kóde . Pokyny dovolená 1

Spustite programovací softvér VBA a súbor VBA , ktorý chcete upraviť .
2

Zahrnúť súbor shell DLL v hornej časti kódu . Pridať nasledujúce vyhlásenie k súboru :

Private Declare Function DragQueryFile Lib " shell " ( ByVal wParam As Integer , ByVal index As Integer , byval lpszFile ako akýkoľvek , ByVal BUFFERSIZE As Integer ) As Integer

musíte skopírovať a vložiť vyššie uvedené vyhlásenie , presne tak , ako sa zobrazia , pretože každý z týchto výrazov a návratové hodnoty sú definované v DLL súboru Windows API .
3

Pridať funkciu VBA ktorý spracováva Drag and Drop proces používateľa pomocou rozhrania API systému Windows . Skopírujte a vložte nasledujúci kód do vášho súboru :

drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , pravda
4

Uložte súbor a kliknite na tlačidlo " Spustiť " v editore otestovať nový kód v debuggeri .

• Predchádzajúca strana: Ako používať úloha vo VBA 
• Ďalšia strana: Ako sa k nám MP3 File Dĺžka VBScript