Faire glisser un ou plusieur ficher dans une list box

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 516 fois - Téléchargée 57 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
-
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
-
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
-
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
-
salut comment faire pour qu'il load toute les fichier texte du repertoire ou il se trouve!
Merci, je le cherchais aussi !!!

ça tue !!!

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.