Discussion :

[mathisdu42]

Bonjour ou Bonsoir à tous,

Comme vous aurez pu le comprendre dans le titre, j'ai trouvé comment faire un drag and drop dans ma textbox (pas très compliqué). Cependant, j'aimerais ajouter le chemin du fichier qu'on ajoute dans la textbox sur un label ..

J'ai tenté plusieurs choses mais sans succès...

Code :

Drag_Enter :

Code :

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

1
2
3
4
 If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
 
        End If

DragDrop

Code :

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

1
2
3
4
5
6
7
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim MyFiles() As String
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            RadTextBox1.Text = My.Computer.FileSystem.ReadAllText(MyFiles(0))
 
 
        End If

Merci, Cordialement.

[wallace1]

Bonsoir,

EDIT :

J'ai jamais testé mais il existe pas les memes event sur le label ??

A+

[mathisdu42]

Bonsoir,

EDIT :

J'ai jamais testé mais il existe pas les memes event sur le label ??

A+

Si il y a les mêmes sur le label mais je ne vois pas trop le rapport ?

[wallace1]

Ca m'étonnait aussi, il existe les mêmes event sur le label (héritant de la classe control) donc cela fait très bien le job je vois pas le problème (ou alors j'ai mal compris) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Private Sub Label1_DragDrop(sender As Object, e As DragEventArgs) Handles Label1.DragDrop
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop)
            TryCast(sender, Label).Text = strFiles(0)
        End If
    End Sub
 
    Private Sub Label1_DragOver(sender As Object, e As DragEventArgs) Handles Label1.DragOver
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub

Si c'est pas ce que tu recherches il va falloir être plus explicite sur le résultat que tu souhaites obtenir !

[mathisdu42]

Ca m'étonnait aussi, il existe les mêmes event sur le label (héritant de la classe control) donc cela fait très bien le job je vois pas le problème (ou alors j'ai mal compris) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Private Sub Label1_DragDrop(sender As Object, e As DragEventArgs) Handles Label1.DragDrop
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop)
            TryCast(sender, Label).Text = strFiles(0)
        End If
    End Sub
 
    Private Sub Label1_DragOver(sender As Object, e As DragEventArgs) Handles Label1.DragOver
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub

Si c'est pas ce que tu recherches il va falloir être plus explicite sur le résultat que tu souhaites obtenir !

Je vais essayer d'expliquer autrement :

Je possède une RadTextbox, sur cette RadTextbox je souhaite faire un drag and drop, ce drag and drop je l'ai fait, j'aimerais juste que quand j'effectue un drop dans la RadTextbox, le label affiche le chemin du fichier qui vient d'être drop dans la RadTextbox..

Désolé si j'explique mal ! ..

[wallace1]

C'est bien ce que je pensais, je ne vois pas la problèmatique, il faut affecter la valeur de la propriété ".text" de ton TextBox à la propeiété ".text" de ton Label :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
  Private Sub Label1_DragDrop(sender As Object, e As DragEventArgs) Handles Label1.DragDrop
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop)
            TryCast(sender, textbox).Text = strFiles(0)
            Label1.text = TryCast(sender, textbox).Text  'Ou Label1.Text = strFiles(0)
        End If
    End Sub

EDIT : j'ai apporté une correction au code...

[mathisdu42]

C'est bien ce que je pensais, je ne vois pas la problèmatique, il faut affecter la valeur de la propriété ".text" de ton TextBox à la propeiété ".text" de ton Label :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
  Private Sub Label1_DragDrop(sender As Object, e As DragEventArgs) Handles Label1.DragDrop
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop)
            TryCast(sender, textbox).Text = strFiles(0)
            Label1.text = TryCast(sender, textbox).Text  'Ou Label1.Text = strFiles(0)
        End If
    End Sub

EDIT : j'ai apporté une correction au code...