AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 04 21:20:37
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VB.NET : DRAG & DROP DE FICHIER 'PAR EXEMPLE DEPUIS LE BUREAU OU L'EXPLORER'


Information sur la source

Catégorie :Trucs & Astuces Source .NET ( DotNet ) Classé sous : drag, drop, dotnet, fichier Niveau : Débutant Date de création : 24/05/2004 Date de mise à jour : 24/05/2004 22:27:50 Vu / téléchargé: 16 741 / 969
Auteur : Alain Proviste Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
9,57 / 10 - par 7 personnes
9,57 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

Description

bah c dans le titre non ?

 

Source

  • Private Sub frmSample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  • 'Autorise le drag & drop sur le controle
  • lstTarget.AllowDrop = True
  • End Sub
  • Private Sub lstTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragEnter
  • 'Si le drop en question est un drop de fichiers,
  • If e.Data.GetDataPresent(DataFormats.FileDrop) Then
  • ' alors on accepte le drop sous forme de copyDrop
  • e.Effect = DragDropEffects.Copy
  • Else 'sinon
  • 'on accepte pas
  • e.Effect = DragDropEffects.None
  • End If
  • End Sub
  • Private Sub lstTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragDrop
  • Dim strFiles() As String
  • 'Variable qui contiendra un tableau contenant les fichiers
  • Dim i As Long 'Variable boucle
  • 'on recupere le drop dans le tableau
  • strFiles = e.Data.GetData(DataFormats.FileDrop)
  • For i = 0 To strFiles.GetUpperBound(0)
  • lstTarget.Items.Add(strFiles(i))
  • Next
  • End Sub 
    Private Sub frmSample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Autorise le drag & drop sur le controle
        lstTarget.AllowDrop = True
    End Sub

    Private Sub lstTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragEnter
        'Si le drop en question est un drop de fichiers,
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            ' alors on accepte le drop sous forme de copyDrop 
            e.Effect = DragDropEffects.Copy
        Else 'sinon
            'on accepte pas
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub lstTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragDrop

        Dim strFiles() As String
        'Variable qui contiendra un tableau contenant les fichiers
        Dim i As Long 'Variable boucle

        'on recupere le drop dans le tableau
        strFiles = e.Data.GetData(DataFormats.FileDrop)

        For i = 0 To strFiles.GetUpperBound(0)
            lstTarget.Items.Add(strFiles(i))
        Next


    End Sub

Conclusion

si ca me pete et si vous insistez je ferais mieux , tous les drag & drop possibles, image, texte, wav et tout et tout
Là c'est juste pour dépanner une patate donc...

a+
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de guizmo123 le 30/05/2004 16:19:25

Bravo pour la source !!!!!
Ce qui aurait été mortel quand même, ce serait de voir uniquement le nom du fichier apparaître dans la liste plutôt que le nom entier du chemin......

++

signaler à un administrateur
Commentaire de spy166 le 30/05/2004 21:23:14

guizmo -->   IO.Path.GetFileName(path As String)

signaler à un administrateur
Commentaire de leka le 06/06/2004 13:06:56

Pas mal, mais tu te complique un peu la vie pour lstTarget_DragDrop.

Une boucle For Each me parrait plus Appropriée et rapide.

        Dim PassedFile As String
        For Each PassedFile In e.Data.GetData(DataFormats.FileDrop)
            lstTarget.Items.Add(PassedFile)
        Next

C'est mieux non ? :-)

signaler à un administrateur
Commentaire de milo2009 le 31/08/2005 16:10:09

Je te remercie de ton mon coeur de programmeur.

J'ai passée des heures a chercher le drag & drop sous vb.net

meme dans le forum, il ne te dise pas comment faire en vb.net

pour les different types je me debrouillerai maintenant que j'ai comrpis le truc

signaler à un administrateur
Commentaire de cesdejong le 23/10/2005 14:40:18

C'est exactement ce que je recherche, enfin presque, enfin ce serait exactement ça si on pouvait l'appliquer à une feuille excel : glisser déposer un dossier sur cette feuille afin de récupérer le nom du dossier.
Si qqn a une idée.

signaler à un administrateur
Commentaire de Warz le 08/11/2005 18:33:32

Même tarif mais pour recuperer un path dans une Textbox ( ou autre ) d'un formulaire access 2000. Tu as une astuce ?

signaler à un administrateur
Commentaire de ocivecho le 02/12/2005 09:48:24

salut, j'ai un truc bien complexe à faire concernant le drag & drop, j'ai un ocx sous vb6 et je refais un programme l'utilisant en .net.
>>le gros problème, c'est que je n'ai plus les événements de dragenter, over ,drop puisque ça ne marche plus pareil en .net.
comment puis-je recréer les événements pour exploiter des fonctionnalités de glisser déposer?
ocivecho

signaler à un administrateur
Commentaire de chris81 le 21/06/2007 10:41:17

merci pour ce bout de code

signaler à un administrateur
Commentaire de 4t0m!k le 12/02/2008 15:20:59 10/10

Merci beaucoup pour ce code simple et très utile

signaler à un administrateur
Commentaire de alosamoelle le 22/02/2008 19:57:52 10/10

Exactement ce que je voulais.

signaler à un administrateur
Commentaire de Arnal88 le 12/05/2008 22:00:22

Merci pour ce petit bout de code rikiki comme tout mais qui rend un grand service !
C'est simple et ça va à l'essentiel. C'est exactement ce que je cherchais !

Continuez à mettre des petits bouts de code comme ça ! Ca fait gagner un temps fou !

signaler à un administrateur
Commentaire de mahikan le 19/06/2008 19:02:23

Salut

Est-il possible d'avoir la même chose mais pour des icone sur un Tabcontrol .

J'explique

mettre des icône sur une table control genre classeur d'icône par différentes catégories .

Merci

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

drag and drop d'un fichier sur l'icone d'une appli pour ouvrir le fichier avec cette derniere [ par HTMLer ] Salut tout le monde, est-ce que quelqu'un connait le mecanisme lorsque l'on fait un drag and drop d'un fichier sur l'icone d'une application pour ouvr Drag& Drop de l'application au bureau [ par CrazyMan19 ] salut tt lemonde je vx faire un truc c'est comme le style des application comme winrar de drag&drop un fichier de l'application vers une destinia Drag and drop de fichier avec postemessageA sous VB6 [ par littleGirl ] Bonjour a tous,Je voudrais savoir si je pourrais simuler Drag and drop de fichier par exemple je dois cliquer droit avec la souris sur un fichier et l Drag'n drop d'un fichier depuis listview vers winamp (ou autre) [ par Jenlain62 ] en gros je veux pouvoir faire un glisser-déposer d'un fichier mp3 vers la playlist de winamp comme on peut le faire depuis l'explorateur sauf ke moa j Drag drop un fichier JPG [ par mrpheus ] Bonjour,Je m'explique, je fait programme j'aimerai dans ce programme y inclure une photo jpg prix avec une web cam, je n'arrive pas a ce que la photo Drag drop un fichier JPG [ par mrpheus ] Bonjour,Je m'explique, je fait programme j'aimerai dans ce programme y inclure une photo jpg prix avec une web cam, je n'arrive pas a ce que la photo Drag and drop [ par Rockit72 ] Salut a tous,Je voudrais faire un programme qui lance notepad et ouvre un fichier texte automatiquement.En fait mon idee est de pouvoir faire un drag drag and drop de fichier [ par poulp ] Je cherche a copier un fichier d'une page web sur mon disk dur ou dans une application simplement par l'intermédiaire du drag and drop. Par exemple j' Drag'n drop pour ouvrir un fichier texte [ par LGEJ_LePsy666 ] Bonjour,Bah je crois que le titre du sujet parle de lui même, je cherche à faire une boite de texte (de préférence en RichText) qui permettrai d'ouvri Drag'n drop pour ouvrir un fichier texte [ par LGEJ_LePsy666 ] Bonjour,Bah je crois que le titre du sujet parle de lui même, je cherche à faire une boite de texte (de préférence en RichText) qui permettrai d'ouvri


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


iPod touch 2ème génération (8 Go)
Entre 210€ et 229€


Visiter le guide achat

Photothèque Nouveau !

Photo alphabet langue des sourdsPhoto pretty girls
Photo jolie femme ronde et maturePhoto alphabet signes des sourds

Visiter la 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
Temps d'éxécution de la page : 1,856 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.