OVH Cloud OVH Cloud

Drag&Drop

1 réponse
Avatar
Alexandre
Bonjour,

Je cherche a connaitre les arguments d'un event "drop"...

Je réussi à valider l'event, mais je dois connaitre le nom du fichier ou du
dossier "dropper" dans ma form...

Merci !

1 réponse

Avatar
Alexandre
Superbe !!!

C'est exactement ce que je cherchais !!!

Merci David

"David Scime" wrote:

Alexandre a écrit :
> Bonjour,
>
> Je cherche a connaitre les arguments d'un event "drop"...
>
> Je réussi à valider l'event, mais je dois connaitre le nom du fichier ou du
> dossier "dropper" dans ma form...
>
> Merci !

Bonjour,

Pour intercepter le drag&drop vers ton contrôle tu dois intercepter
l'évènement "DragEnter". Dans celui-ci tu vérifie que c'est bien un
fichier qui est glissé (à l'aide de la méthode GetDataPresent de l'objet
Data de la classe DragEnterEvent) si c'est le cas tu choisi l'effet
visuel désiré (grâce à DragEnterEvent.Effect) et finalement tu récupères
le chemin vers le fichier en interceptant l'évènement "DragDrop" et en y
exécutant la méthode DragEnterEvent.GetData avec comme argument
DataFormats.FileDrop. Cette méthode retourne un tableau de string (j'ai
bien dis un tableau..) qui contient le chemin vers le fichier..

Code -->

<<

Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub

>>

<<

Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
Dim s() As String
s = e.Data.GetData(DataFormats.FileDrop)
End Sub

>>

Cordialement

David Scime