Drag and Drop, chemin du fichier

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:

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

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.

Bonsoir,

EDIT :

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

A+

Citation:

Envoyé par wallace1

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 ?

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:

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 !

Citation:
Envoyé par 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:

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

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:

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

1 pièce(s) jointe(s)

Citation:
Envoyé par 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:

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...
Pièce jointe 189743

Bon ok on va faire de manière à ce que ça coincide avec ton radTextbox :

- Soit RadTextBox1 le nom de ton contrôle Radtextbox
- Soit Label1 le nom de ton contrôle Label

Code:

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

A+

Citation:

Envoyé par wallace1

Bon ok on va faire de manière à ce que ça coincide avec ton radTextbox :

- Soit RadTextBox1 le nom de ton contrôle Radtextbox
- Soit Label1 le nom de ton contrôle Label

Code:

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

A+

Erreur :

Citation:

"Le type RadTextBox1" n'est pas défini"

(Pareil pour une TextBox normal)

Citation:

Envoyé par mathisdu42

Erreur : (Pareil pour une TextBox normal)

Pourquoi ne pas essayer avec un textbox normal. C'est ton radtextbox custom qui fou la merde....:aie:

Exemple : http://wallace87000.upd.fr/LabelDragAndDrop.zip

Citation:

Envoyé par wallace1

Pourquoi ne pas essayer avec un textbox normal. C'est ton radtextbox custom qui fou la merde....:aie:

Exemple : http://wallace87000.upd.fr/LabelDragAndDrop.zip

Même pas ! :)

J'ai finalement résolu le problème avec ce code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub RadTextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles RadTextBox1.DragDrop If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop) RadTextBox1.Text = My.Computer.FileSystem.ReadAllText(strFiles(0)) Label3.Text = strFiles(0) End If End Sub
Merci ! ;)