Πώς να χρησιμοποιήσετε WM_DROPFILES σε VBA

Το μήνυμα WM_DROPFILES εμφανίζεται όταν ο χρήστης σέρνει και ρίχνει ένα εικονίδιο ή κείμενο από μία τοποθεσία στην άλλη στην εφαρμογή σας . Για να χρησιμοποιήσετε το μήνυμα των Windows , θα πρέπει να εισάγετε το σωστό DLL των Windows API και να καλέσουμε τη συνάρτηση μήνυμα στον κώδικά σας . Των Windows επιτρέπει σε κάθε γλώσσα προγραμματισμού - συμπεριλαμβανομένων VBA - για να τρέξει τις λειτουργίες API , αρκεί να συμπεριλάβετε το αρχείο DLL στον πηγαίο κώδικα σας . Οδηγίες
Η

1 Ανοίξτε το λογισμικό προγραμματισμού VBA σας και το αρχείο VBA που θέλετε να επεξεργαστείτε . 2

Συμπεριλάβετε το αρχείο DLL κέλυφος στην αρχή του κώδικα σας . Προσθέστε την ακόλουθη δήλωση στο αρχείο :

Private Declare Function DragQueryFile Lib " κέλυφος" ( ByVal wParam As Integer , ByVal Δείκτης As Integer , ByVal lpszFile Όπως κάθε, ByVal buffersize As Integer ) As Integer

θα πρέπει να αντιγράψετε και να επικολλήσετε την παραπάνω δήλωση ακριβώς όπως φαίνεται , διότι κάθε μία από αυτές τις φράσεις και τις τιμές επιστροφής καθορίζονται στο αρχείο DLL των Windows API .
εικόνων 3

Προσθήκη της λειτουργίας VBA που επεξεργάζεται drag and drop διαδικασία του χρήστη , χρησιμοποιώντας το Windows API . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο αρχείο σας :

drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , True
Η 4

Αποθηκεύστε το αρχείο και κάντε κλικ στο κουμπί "Run " στο συντάκτη σας να δοκιμάσει το νέο κώδικα στο πρόγραμμα εντοπισμού σφαλμάτων .
Η
εικόνων