Den WM_DROPFILES budskab opstår, når brugeren trækker og dråber et ikon eller tekst fra et sted til et andet i din ansøgning . Hvis du vil bruge Windows- meddelelse, skal du importere den rigtige Windows API DLL og kalder meddelelsen funktionen i din kode . Windows tillader enhver programmeringssprog - herunder VBA - at køre API funktioner , så længe du medtage DLL-fil i din kildekode. Instruktioner
1
Åbn din VBA programmeringssoftware og VBA fil, du ønsker at redigere.
2
Medtag skallen DLL-fil i toppen af din kode . Tilføj følgende erklæring til filen : Hej
Private Erklær Funktion DragQueryFile Lib "shell " ( ByVal wParam As Integer , ByVal Index As Integer , ByVal lpszFile Som enhver , ByVal buffer As Integer ) As Integer
< p> Du skal kopiere og indsætte ovenstående opgørelse , præcis som den er vist , fordi hver af disse sætninger og returnere værdier er defineret i Windows API DLL-fil .
3
Tilføj VBA -funktionen der behandler brugerens træk og slip proces ved hjælp af Windows API. Kopier og indsæt følgende kode til din fil : Hej
drop.MsgList (0) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage (0) = 1DragAcceptFiles Me.hWnd , Sand
4 < p > Gem filen, og klik på "Kør "-knappen i din editor for at teste den nye kode i debugger .