Drag & Drop sur une Form [Résolu]

Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
- - Dernière réponse : allthew3
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
- 27 juin 2007 à 13:15
Bonjour,

J'ai une form avec un TabControl qui utilise tout l'espace : je voudrais pouvoir glisser un fichier sur la fenetre (pour obtenir le chemin d'accès à ce fichier et effectué des actions dessus)

J'ai bien mis AllowDrop = true mais je n'y arrive pas : voilà mes evenements :

Private

Sub Principal_DragEnter(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.DragEventArgs)
Handles
Me.DragEnter, TabControl.DragEnter, TabAntivirus.DragEnter

If e.Data.GetDataPresent(DataFormats.FileDrop)
Thene.Effect = DragDropEffects.Copy

Elsee.Effect = DragDropEffects.None

End
If

End
Sub

Private
Sub Principal_DragDrop(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.DragEventArgs)
Handles
Me.DragDrop, TabControl.DragDrop, TabAntivirus.DragDrop

Dim strFiles
As
String = e.Data.GetData(DataFormats.FileDrop).ToString
' action sur strFiles

End
If

End
Sub
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
3
Merci
post inutile (désolé admin et modo) : je viens de trouver la solution

Merci allthew3 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de allthew3
Messages postés
552
Date d'inscription
samedi 8 janvier 2005
Dernière intervention
12 avril 2008
0
Merci
après modification, voici mon code :

Private

Sub Principal_DragEnter(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.DragEventArgs)
Handles
Me.DragEnter, TabControl.DragEnter, TabAntivirus.DragEnter

If e.Data.GetDataPresent(DataFormats.FileDrop)
Thene.Effect = DragDropEffects.Copy

Elsee.Effect = DragDropEffects.None

End
If

Dim strFiles
As
String = e.Data.GetData(DataFormats.FileDrop,
True).ToString

' action sur le fichier

End
Sub
Commenter la réponse de allthew3

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.