Drag & Drop sur une Form [Résolu]

allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention - 27 juin 2007 à 13:03 - Dernière réponse : allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention
- 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 

2 réponses

Répondre au sujet
allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention - 27 juin 2007 à 13:15
+3
Utile
post inutile (désolé admin et modo) : je viens de trouver la solution
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de allthew3
allthew3 552 Messages postés samedi 8 janvier 2005Date d'inscription 12 avril 2008 Dernière intervention - 27 juin 2007 à 13:07
0
Utile
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.