Faire glisser un ou plusieur ficher dans une list box

Soyez le premier à donner votre avis sur cette source.

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

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

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!
Warning
22 juin 2001 à 17:49
Merci, je le cherchais aussi !!!

ça tue !!!
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)