Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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