Drag/Drop VBnetRésolu

Question

Bonjour J'ai un souci avec un DragDrop le mieux est que je vous montre mon code

    Private Sub TableLayoutPanel1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TableLayoutPanel1.DragDrop

        Dim strfiles As String
        Dim bt As New Button
        strfiles = e.Data.GetData(DataFormats.FileDrop)
        bt.Text = fichier(strfiles)
        bt.Name = "bouton1"
        Me.TableLayoutPanel1.Controls.Add(bt)

        For o = 0 To MyBase.Controls.Count - 1
            If Controls(o).Text = "OK" Then
                AddHandler MyBase.Controls(o).Click, AddressOf clickbut
            End If
        Next
    End Sub

    Private Sub TableLayoutPanel1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TableLayoutPanel1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            ' alors on accepte le drop sous forme de copyDrop
            e.Effect = DragDropEffects.Copy
        Else 'sinon
            'on accepte pas
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Function fichier(ByVal fich As String)
        Dim x
        x = Split(fich, "")
        Return x(UBound(x))

    End Function

    Private Sub TableLayoutPanel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles TableLayoutPanel1.Paint

    End Sub

Le Souci est que lorsque que je glisse mon fichier dans mon appli et bien mon appli part dans le DargDRop jusque la tou vas bien

mais au bout de 3 ligne elle part autre  part

dans le table layoutPanel1 ci dessus savez vous pourquoi.? et comment me sortir de la?
Merci d'avance

Genildf · Accepted Answer

Résolut strfile est un tableau
strfiles = e.Data.GetData(DataFormats.FileDrop)
        bt.Text = fichier(strfiles(0))

Genildf · Answer

Sa me met dans le Table Layaout panel_Paint

et ne reviens pas a mon code pour la suite

Drag/Drop VBnet

2 réponses

Votre réponse

Discussions similaires