Accueil > > > VB.NET : DRAG & DROP DE FICHIER 'PAR EXEMPLE DEPUIS LE BUREAU OU L'EXPLORER'
VB.NET : DRAG & DROP DE FICHIER 'PAR EXEMPLE DEPUIS LE BUREAU OU L'EXPLORER'
Information sur la source
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+
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
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
drag&drop d'un fichier sur un classeur excel [ par cesdejong ]
bonjour,j'ai un classeur excel et une macro qui demandent un fichier d'entrée. Je souhaiterais pouvoir faire un drag&drop du fichier d'e
drag and drop d'un fichier [ par Sparks_hevs ]
Bonjours à tous,J'ai un programme qui traite des fichiers texte, pour l'instant je suis obligé de faire un parcourir pour ouvrir mon fichier.Quelque u
Récupérer le nom d'un fichier par Drag&drop dans Excel 2000 [ par L_Stout ]
Bonjour,Je fais une macro qui à besoin d'un nom de fichier en entrée. Et je souhaite que l'utilisateur puisse lancer la macro directement en
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|