De WM_DROPFILES bericht verschijnt wanneer de gebruiker sleept en daalt een pictogram of de tekst van de ene locatie naar de andere in uw toepassing . Om het bericht Windows gebruiken, moet u de juiste Windows API DLL importeren en bellen met de boodschap functie in uw code . Windows maakt elke programmeertaal - inclusief VBA - tot API-functies zo lang draaien als u het DLL- bestand in je broncode bevatten . Instructies 1 Open uw VBA- programmeersoftware en de VBA -bestand dat u wilt bewerken . Kopen van 2 Neem de schaal DLL-bestand aan de bovenkant van je code . Voeg de volgende verklaring aan het dossier : Private Declare Function DragQueryFile Lib " shell " ( ByVal wParam As Integer , ByVal Index As Integer , ByVal lpszFile Zoals Elke , ByVal buffersize As Integer ) als Geheel U moet de bovenstaande verklaring precies zoals wordt aangetoond kopiëren en plakken , omdat elk van deze zinnen en return waarden worden gedefinieerd in de Windows API- DLL -bestand . 3 Voeg de VBA -functie dat slepen en neerzetten proces van de gebruiker met behulp van de Windows API verwerkt . Kopieer en plak de onderstaande code om het bestand : drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , True 4 Sla het bestand op en klik op de " Run" knop in je editor om de nieuwe code in de debugger te testen .
|