Discussion :

[jjcasalo]

Ca progresse (grace à vous !)

Code :

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

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

[cybermaxs]

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.

[jjcasalo]

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.

Code :

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

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.

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

[cybermaxs]

ouf !