Faire glisser un ou plusieur ficher dans une list box

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 780 fois - Téléchargée 59 fois

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

Ajouter un commentaire Commentaires
cs_RENAUD34
Messages postés
18
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
4 octobre 2007

23 déc. 2009 à 11:49
trop simple. Je l'utilise avec une FileListBox ("Fl") pour copier des fichiers :

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

For i = 1 To Data.Files.count
FileCopy Data.Files.Item(i), FL.Path & "" & Dir(Data.Files.Item(i))
Next

FL.Refresh
End Sub
cs_Jin
Messages postés
30
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
1 février 2003

17 janv. 2003 à 12:09
c'est con. Mais qu'est que c'est bien. Comme on dit, il fallait y penser...
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007

21 mars 2002 à 20:21
Salut, question hyperBete : c koi OLE ?????
cs_jackky
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003

27 févr. 2002 à 08:47
salut comment faire pour qu'il load toute les fichier texte du repertoire ou il se trouve!
Merci, je le cherchais aussi !!!

ça tue !!!
Afficher les 9 commentaires

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.