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

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

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.

ouf !:)