Accepter le drag&drop d'une URL dans une TextBox

Version imprimable

15/03/2010, 12h07
jjcasalo

Accepter le drag&drop d'une URL dans une TextBox

Bonjour à tou(te)s,

Je suis sous Visual Basic 2008 Express. J'ai une Form avec un TextBox. Je souhaite pouvoir faire un Drag&Drop d'une URL depuis un navigateur (IE, Firefox, Chrome, ...) vers cette TextBox.

Mais ça ne fonctionne pas. Quand j'essaye de glisser l'URL vers la TextBox, le curseur se transforme en "Interdiction de stationner".
J'ai cherché dans les propriétés de la TextBox pour voir s'il y avait quelque chose comme "Accepter le Drag&Drop", mais je n'ai pas trouvé.

Si quelqu'un sait comment faire ...

Merci d'avance.
15/03/2010, 12h36
cybermaxs

Salut,

Il faut que tu spécifies AllowDrop sur la textbox.
15/03/2010, 12h42
jjcasalo

J'ai essayé de faire ça (dans le Form Load), mais ça ne change rien.

J'ai ajouté ce code :

Code:

TextBox1.AllowDrop = True

J'ai aussi ajouté (pour vérification) un Enabled = False sur un bouton de la form, et le bouton est bien grisé.

Etrange ...
15/03/2010, 15h00
Pol63

il faut aussi gérer les évènements de drag drop (je ne sais plus leurs nom exacts)
et dans ces évènements tu peux demander le type de ce qui est dragé, si ca te convient tu peux dire que tu acceptes ce type de chose, et donc l'icone change
15/03/2010, 15h00
cybermaxs

Après vérif sur mon poste, il faut aussi implémenter les event DragOver et DragDrop.

désolé:oops:
15/03/2010, 15h44
jjcasalo

:koi:

Je ne comprends toujours pas pourquoi ça ne fonctionne pas.

J'ai bien la propriété AllowDrop du TextBox qui est à True.
J'ai ajouté les 2 Sub TextBox_DragDrop et TextBox_DragOver.
Dans la première, pour l'instant, j'affiche juste un message "Toto".
Dans la seconde, je cherche à modifier le curseur pour qu'il indique qu'on peut déposer une URL dans le champ.
Mais le curseur reste désespérément en "Stationnement interdit".

J'ai placé un MsgBox dans le DragOver, et il s'affiche bien quand je passe avec la souris sur la TextBox, après avoir sélectionné une URL.
Donc, VB voit bien que je suis en mode Drag&Drop, il voit bien que je passe au dessus d'un champ qui accepte le D&D, mais il refuse toujours le drop....

Merci de vos conseils et suggestions.

EDIT : Je crois que j'ai trouvé : il faut ajouter dans le DragOver la ligne ci-dessous :

Code:

e.Effect = DragDropEffects.All
15/03/2010, 16h01
cybermaxs

Oui c'est ça. Le DragOver permet justement de dire comment la control sous jacent se comporte vis à vis du Drag&Drop. Le DragDropEffects.All permet de tout autoriser. DragDropEffects.Cpoy est peut être suffisant.
15/03/2010, 16h10
jjcasalo

OK. Maintenant, je suis en train de me battre avec le DragDrop.

J'ai trouvé sur le Net la commande suivante pour récupérer le texte de l'objet que l'on Drop :

Code:

TextBox.Text = e.Data.GetData(DataFormats.Text).ToString

J'ai de la chance, car ça fonctionne bien avec les URL. Par contre, ça provoque une erreur si j'essaie de drop un fichier.
Je suppose que je dois tester le type d'objet que je Drop, et n'accepter que les objets de type URL.

Si l'un d'entre vous sait comment faire...
15/03/2010, 17h03
cybermaxs

pas loin mais il faut faire ceci dans le cas d'un fichier

Code:

e.Data.GetData(DataFormats.FileDrop)

tu auras un tableau contenant le chemin vers le/les fichier(s) droppé(s).
15/03/2010, 17h09
Pol63

il faut vérifier ce qu'il y a dans le drag drop via e.getdataformats, selon ce que c'est tu définis e.effect
15/03/2010, 17h12
cybermaxs

Citation:

Envoyé par Pol63

il faut vérifier ce qu'il y a dans le drag drop via e.getdataformats, selon ce que c'est tu définis e.effect

Oui en effet. Il faut que tu gères les différents cas de drop que tu souhaites avoir, afin de récupérer les données dans le bon format.
15/03/2010, 17h37
jjcasalo

Oui, j'ai bien compris qu'il faut faire un test sur le format dans le DragOver, et non dans le DragDrop (où c'est déjà trop tard).

Mais je n'arrive pas à tester le format de l'objet que je drag. J'ai essayé e.data.getdata(dataformats.getFormat), mais ça ne marche pas.
Je n'ai pas trouvé le e.getdataformats.

Quant au e.Data.GetData(DataFormats.FileDrop), j'ai essayé avec
e.Data.GetData(DataFormats.HTML), sans plus de succès.

En résumé, je suis coincé !
15/03/2010, 20h06
Pol63

il me semble qu'il faut vérifier le type dans dragover et dans dragdrop

Code:

e.Data.GetFormats
16/03/2010, 10h25
jjcasalo
Merci à tous pour votre aide. J'ai continué les tests, mais ce n'est toujours pas concluant.

J'ai codé ça :
Code:

1 2 3 4 Private Sub TextBox1_DragOver ( [...]) MsgBox("Format = " & e.Data.GetFormats.ToString) e.Effect = DragDropEffects.Copy End Sub
Je veux en effet qu'il m'affiche le type de la donnée que je suis en train de "dragger", afin de faire des tests.
Manque de pot, que je Drag une URL à partir d'un navigateur ou un fichier à partir du bureau Windows, l'affichage est toujours le même :
Format = System.String[]

Donc, je ne sais pas distinguer le type de la source pour n'accepter qu'une URL.

Désolé de vous casser les pieds avec mon problème ...
16/03/2010, 10h28
cybermaxs

Citation:

Envoyé par jjcasalo

Je veux en effet qu'il m'affiche le type de la donnée que je suis en train de "dragger", afin de faire des tests.
Manque de pot, que je Drag une URL à partir d'un navigateur ou un fichier à partir du bureau Windows, l'affichage est toujours le même :
Format = System.String[]
.

Oui justement. Le Drag&Drop est un mécanisme général sous Windows. Tu récupère un tableau car il est tout simplement possible de déplacer plusieurs entités en même temps ! Il faut donc que tu parcoures le tableau pour avoir les chemins des fichiers.
16/03/2010, 10h30
Pol63

getformats est un tableau de string, il faut faire un for each pour concaténer et voir les types contenus
16/03/2010, 11h01
jjcasalo

Mais comment récupérer les éléments du tableau ?
J'ai essayé e.Data.GetData(Array.FindLastIndex) pour trouver le nombre d'éléments du tableau, mais VB m'indique qu'il y a une erreur de syntaxe.
16/03/2010, 11h12
cybermaxs

Citation:

Envoyé par jjcasalo

Mais comment récupérer les éléments du tableau ?
J'ai essayé e.Data.GetData(Array.FindLastIndex) pour trouver le nombre d'éléments du tableau, mais VB m'indique qu'il y a une erreur de syntaxe.

attention, e.Data.GetData doit prendre une valeur de DataFormats, et c'est tout.

Tu procèdes de la même façon, e.Data.GetData te renvoies un object dont tu va vérifier puis caster en un type string[].

Code:

1
2
3
4
5
6
7
8
Private Sub TextBox1_DragOver ( [...])
    dim s as string = ""
    for each f as string in e.Data.getformats
        s &= f & vbcrlf 
    next
    MsgBox("Format = " & s)
    e.Effect = DragDropEffects.Copy
End Sub

16/03/2010, 12h30
jjcasalo

Merci beaucoup.
Effectivement, avec le bout de code ci-dessus, je vois bien la différence entre un Drop d'un fichier et d'une URL :

Ce qui est affiché sur un Drop d'une URL :

Citation:

Format= text/x-moz-url
FileGroupDescriptorW
FileContents
UniformResourceLocatorW
UniformResourceLocator
System.string
UnicodeText
Text
DragImageBits
DragContext

Ce qui est affiché sur un Drop d'un fichier :

Citation:

Format = Shell IDListArray
ShellObkect Offsets
DragImageBits
DragContext
InShellDragLoop
FileDrop
FileNameW
FileName

Donc, il reste à tester que l'un des résultats correspond à UniformResourceLocator. Et si Oui, alors, accepter le Drop.

Ca progresse (grace à vous !)
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub TextBox1_DragOver ( [...] ) Handles TextBox1.DragOver Dim Drop_Valide As Boolean = False For Each f As String In e.Data.GetFormats If f = "UniformResourceLocator" Then Drop_Valide = True End If Next If Drop_Valide Then e.Effect = DragDropEffects.Copy End If End Sub
Ca marche bien, mais ce n'est pas encore parfait :
Si j'essaie de droper un fichier, le curseur reste à Interdit. Si j'essaie ensuite de droper une URL, le curseur change. Jusque là, c'est tout bon.
Par contre, si je ne drop pas, puis que je ressors, et que je reessaye de droper un fichier, le curseur ne se remet pas à Interdiction.
Je vais voir s'il ne faut pas passer la variable Drop_Valide en globale, et la remettre à False à chaque fois qu'il y a un DragLeave.
En gros, jouer avec les procédures DragEnter et DragLeave.

Je vous tiens au courant...

16/03/2010, 12h45
cybermaxs

Citation:

Envoyé par jjcasalo

e vais voir s'il ne faut pas passer la variable Drop_Valide en globale, et la remettre à False à chaque fois qu'il y a un DragLeave.

oui exactement, sinon ta variable conserve l'état du DragOver.

C'est bon, j'ai trouvé d'où venait le problème. La variable Drop_Valide était bien réinitialisèe à False dans le DragOver, mais par contre, la "propriété" DragDropEffects était toujours à Copy. J'ai donc initialisé à None lors du DragOver.
Et ça fonctionne. :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
   Private Sub TextBox1_DragOver( [...] ) Handles TextBox1.DragOver
 
        Dim s As String = ""
        Dim Drop_Valide As Boolean = False
        ' Il faut remettre l'objet TextBox en mode refus de Drop par défaut
        e.Effect = DragDropEffects.None
 
        For Each f As String In e.Data.GetFormats
            If f = "UniformResourceLocator" Then
                Drop_Valide = True
            End If
        Next
 
        ' On autorise le Drop uniquement si l'objet en cours de Drag est du type URL.
        If Drop_Valide Then
            e.Effect = DragDropEffects.Copy
        End If
 
    End Sub

Un grand merci à cybermaxs et Pol63 pour leur aide. :ccool:

En espérant que ce sujet puisse servir à d'autres.

16/03/2010, 13h48
cybermaxs

ouf !:)

Fuseau horaire GMT +2. Il est actuellement 17h27.