Drag and Drop, chemin du fichier

**mathisdu42** · 08/10/2015, 20h16

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** · 08/10/2015, 20h36

Bonsoir,

EDIT :

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

A+

**mathisdu42** · 08/10/2015, 20h47

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 ?

**wallace1** · 08/10/2015, 20h50

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** · 08/10/2015, 21h03

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 :

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** · 08/10/2015, 21h09

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** · 08/10/2015, 21h23

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 :

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

Nom : err.png
Affichages : 351
Taille : 3,5 Ko

**wallace1** · 08/10/2015, 21h49

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 :

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

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+

**mathisdu42** · 08/10/2015, 22h22

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 :

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

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 :

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

(Pareil pour une TextBox normal)

**wallace1** · 08/10/2015, 22h45

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

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

**mathisdu42** · 08/10/2015, 23h53

Envoyé par wallace1

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

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

Même pas !

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

Code :

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

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 !

Drag and Drop, chemin du fichier

VB.NET

Discussions similaires

Partager

Partager