The WM_DROPFILES meddelandet visas när användaren drar och släpper en ikon eller text från en plats till en annan i din ansökan . Om du vill använda Windows- meddelandet , måste du importera rätt Windows API DLL och ringa meddelandefunktionen i din kod . Windows gör något programmeringsspråk - inklusive VBA - att köra API-funktioner så länge du inkludera DLL -filen i din källkod . Instruktioner
1
Öppna din VBA-programmering programvara och VBA -fil du vill redigera .
2
Inkludera filen skalet DLL på toppen av din kod . Lägg till följande sats i filen :
Private Declare Function DragQueryFile Lib " skal " ( ByVal wParam As Integer , ByVal Index As Integer , ByVal lpszFile Som någon , ByVal BufferSize As Integer ) As Integer
Du måste kopiera och klistra in ovanstående uttalande exakt som det visas , eftersom var och en av dessa fraser och returvärden är definierade i Windows API DLL -fil .
3
Lägg VBA -funktionen som behandlar användarens dra och släpp- process använder Windows API . Kopiera och klistra in följande kod till din fil :
drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , Sant
4
Spara filen och klicka på " Kör " knappen i din editor för att testa den nya koden i debugger .
