Drag'n'drop de l'explorateur vers une listbox

Description

tout est dit dans le titre...comment ajouter des fichiers dans une listbox depuis l'explorateur windows en utilisant le drag n drop

1 - mettre la propriété OLEDragMode de la list sur automatique
2 - mettre la propriété OLEDropMode de la list sur manuel

ensuite :

Source / Exemple :


Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim fichier As Variant
    
    For Each fichier In Data.Files
        List1.AddItem fichier
    Next

End Sub

Conclusion :


et c'est parti comme en 14.
Bon c'est pas commenté mais je pense pas que ce soit grave

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.