Discussion :

[jjcasalo]

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.

[cybermaxs]

Salut,

Il faut que tu spécifies AllowDrop sur la textbox.

[jjcasalo]

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

J'ai ajouté ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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

[cybermaxs]

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

désolé

[jjcasalo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

e.Effect = DragDropEffects.All

[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.