Faire glisser un ou plusieur ficher dans une list box

Commenter

Contenu du snippet

ben c'est tout simple vous prenez un fichier ou plusieur de notre disk-dur et vous les faites glisser sur la list box
il vous faut crée une list box et une text box

Source / Exemple : 


Private Sub Form_Load()
List1.OLEDropMode = 1
End Sub

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For a = 1 To Data.Files.Count
List1.AddItem Data.Files.Item(a)
Next
Text1 = Data.Files.Count
End Sub

A voir également

S'inscrire maintenant

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.

Du même auteur (CtHuLhU50)