begin process at 2012 02 16 01:53:14
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > FAIRE GLISSER UN OU PLUSIEUR FICHER DANS UNE LIST BOX

FAIRE GLISSER UN OU PLUSIEUR FICHER DANS UNE LIST BOX


 Information sur la source

Note :
7,75 / 10 - par 4 personnes
7,75 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :fichier, listbox, glisser Niveau :Débutant Date de création :22/06/2001 Vu :3 342

Auteur : CtHuLhU50

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

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

  • 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
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

  



 Sources du même auteur

Source avec Zip QUARTO EN RESEAU
Source avec Zip RECHERCHE SUR GOOGLE.FR(1 ER SITE DE LA RECHERCHE)
Source avec Zip Source avec une capture [IA]SORTIR D'UN LABYRINTHE,MODIFIABLE EN TEMPS RÉEL
Source avec Zip EXECUTER LA SOURCE INDÉPENDAMENT DE L'EXE => PRGRAMME PRO...
Source avec Zip WINSOCK:DIFFÉRANCE ENTER LE TCP ET D'UDP !

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) COMPARER_2FICHIERS_TEXTE par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) GADGET DIAPORAMA par Le Pivert
Source avec Zip Source avec une capture DIAPORAMA POWERPOINT DEPUIS EXCEL par Le Pivert
Source avec Zip Source avec une capture LISTBOX : SUPRESSION PROPRE, ENREGISTREMENT & CHARGEMENT DAN... par ABF
FAIRE GLISSER UN ÉLÉMENT DANS UNE LISTBOX FAÇON "WINAMP" par cresus18

Commentaires et avis

Commentaire de jackky le 27/02/2002 08:47:15

salut comment faire pour qu'il load toute les fichier texte du repertoire ou il se trouve!

Commentaire de leptidev le 21/03/2002 20:21:26

Salut, question hyperBete : c koi OLE ?????

Commentaire de Jin le 17/01/2003 12:09:46

c'est con. Mais qu'est que c'est bien. Comme on dit, il fallait y penser...

Commentaire de RENAUD34 le 23/12/2009 11:49:55 8/10

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

listbox récuperer contenu fichier [ par aurel16 ] Bonjour,Après plusieurs recherche je n'arrive pas à trouver mon bonheur. Je voudrais ouvrir un fichier dans un listobx ligne par ligne j'ai code cela blacklist listbox [ par maxsecurite2 ] Bonjour,J'aimerais savoir comment faire pour faire en sorte d'interdire certains mots dans une listbox ; je m'explique j'ai un fichier txt appelé list Impossible d'enregistrer plusieurs fois dans un fichier txt... [ par Fabian123 ] Bonjour,voilà, j'ai dans l'evenement click d'un bouton un code permettant de faire deux choses:1- Il crée un fichier txt nommé en fonction du numéro d enregistrer/ouvrir plusieurs listbox dans un seul fichier texte [ par maxpruv ] Bonjour, je suis nouveaux sur le forum et très  "novice" en programmation,excusez ma question qui paraitra  peut-être trop facile pour certain...Comme fichier et listbox [ par neg03 ] Bonjour,je possède un fichier et un textbox et un bouton.Je souhaiterais pouvoir en cliquant sur mon bouton inscrire dans ma textbox la première ligne fichier texte et listbox [ par neg03 ] Bonjour,je possède un fichier .txt dans lequel j'enregistre des données correspondants à un objet.Je les enregistre de cette manière et les ajoute aus Supprimer ligne d'un fichier .txt en fonction d'un controle de listbox [ par stageVB6 ] Bonjour à tousVoila je vous explique le problème :   -J'ai un fichier RDV.txt   -J'ai 6 listbox regroupées dans un même controle ( Liste1(0) à Liste1( Charger une ListBox de mon projet à partir d'un Fichier.text du même projet [ par KIPRE74 ] Bonjours à tous Voici la situation : 1- j'aimerais qu'au lancement de mon projet la liste des objet de mon fichier.txt du projet soit copier dans une SAUVEGARDER dans un fichier TXT le contenue d'une LISTBOX en VB.net [ par l informatiquepourtous ] Bonjour a tous, voila sa fait plusieurs jour que je cherche sur se site et sur internet une idée pour écrire un petit bout de cote pour enregistrer le probléme listbox [ par psycOnemesis ] bonsoir a tous, je voudrai ,lors d'un copier collé d'un fichier windows vers listbox recuperer seulement le nom du fichier (des mp3)et non l'adresse c


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,883 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales