Drag & Drop sur une FormRésolu

Question

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

allthew3 · Accepted Answer

post inutile (désolé admin et modo) : je viens de trouver la solution

allthew3 · Answer

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

Drag & Drop sur une Form

2 réponses

Votre réponse

Discussions similaires