|
Le message WM_DROPFILES se produit lorsque l'utilisateur fait glisser et dépose une icône ou un texte d'un endroit à un autre dans votre application. Pour utiliser le message Windows, vous devez importer le droit DLL API Windows et appeler la fonction de message dans votre code. Windows permet n'importe quel langage de programmation - y compris VBA - afin de fonctionner fonctions de l'API , tant que vous incluez le fichier DLL dans votre code source. Instructions
1 Ouvrez votre logiciel de programmation VBA et le fichier VBA que vous souhaitez modifier .
2 inclure le fichier DLL de coquille en haut de votre code. Ajoutez l'instruction suivante au fichier: Photos 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> Vous devez copier et coller l'instruction ci-dessus exactement comme il est indiqué , parce que chacune de ces phrases et les valeurs de retour sont définis dans le fichier DLL de l'API Windows .
3 Ajouter la fonction VBA qui traite du processus de drag and drop de l'utilisateur en utilisant l'API Windows. Copiez et collez le code suivant à votre fichier : Photos drop.MsgList (0) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage (0) = 1DragAcceptFiles Me.hWnd , vrai
4 < p> Enregistrez le fichier et cliquez sur le bouton "Exécuter" dans votre éditeur de tester le nouveau code dans le débogueur.
|
