The WM_DROPFILES meldingen vises når brukeren drar og slipper et ikon eller tekst fra ett sted til et annet i programmet. Hvis du vil bruke Windows-melding , må du importere riktig Windows API DLL og ringe meldingens funksjon i koden. Windows tillater alle programmeringsspråk - inkludert VBA - å kjøre API funksjoner så lenge du inkluderer DLL -filen i kildekoden . Instruksjoner
en

Åpne VBA programmering programvare og VBA -filen du vil redigere.
2

Inkluder skallet DLL -filen på toppen av koden din . Legg til følgende uttalelse til fil : en

Private Declare Function DragQueryFile Lib " shell " ( ByVal wParam As Integer , ByVal Index As Integer , ByVal lpszFile som noen, ByVal BufferSize As Integer ) As Integer
< p> Du må kopiere og lime ovennevnte uttalelse nøyaktig slik det er vist , fordi hver av disse setningene og returnerer verdier er definert i Windows API DLL -fil.
3

Legg til VBA-funksjon som behandler brukerens dra og slipp prosess ved hjelp av Windows API. Kopier og lim inn følgende kode til filen din : en

drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , Sann
4 < p> Lagre filen og klikk på "Kjør "-knappen i editoren for å teste den nye koden i debugger .