Die WM_DROPFILES Meldung erscheint, wenn der Benutzer per Drag & Drop auf ein Symbol oder Text aus einem Ort zum anderen in Ihrer Anwendung. Um die Windows-Meldung verwenden, müssen Sie importieren die richtige Windows-API- DLL und rufen Sie die Nachricht Funktion in Ihrem Code. Windows ermöglicht eine Programmiersprache - einschließlich VBA - zu API-Funktionen ausführen, solange Sie die DLL-Datei in Ihrem Quellcode einfügen . Anleitung
1

Öffnen Sie Ihren VBA -Programmiersoftware und die VBA- Datei, die Sie bearbeiten möchten.
2

Fügen Sie die Shell- DLL-Datei am Anfang Ihres Codes. Fügen Sie die folgende Anweisung in der Datei:

Private Declare Function DragQueryFile Lib " shell" (ByVal wParam As Integer , ByVal Index As Integer , ByVal LpszFile As Any , ByVal BufferSize As Integer ) As Integer
< p> Sie müssen kopieren und fügen Sie die obige Aussage genau so, wie es dargestellt wird , weil jeder dieser Sätze und Rückgabewerte in der Windows-API- DLL-Datei definiert werden.
3

Fügen Sie den VBA-Funktion die Prozesse des Benutzers Drag & Drop Verfahren unter Verwendung der Windows-API . Kopieren Sie den folgenden Code , um die Datei :

drop.MsgList (0) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage (0) = 1DragAcceptFiles Me.hWnd , Wahre
4 < p> Speichern Sie die Datei und klicken Sie auf die Schaltfläche "Ausführen" in Ihren Editor, um den neuen Code im Debugger testen.