Vb.net : drag & drop de fichier 'par exemple depuis le bureau ou l'explorer'

Télécharger le projet
Commenter

Description

bah c dans le titre non ?

Source / Exemple : 


Private Sub frmSample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Autorise le drag & drop sur le controle
        lstTarget.AllowDrop = True
    End Sub

    Private Sub lstTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragEnter
        'Si le drop en question est un drop de fichiers,
        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

    Private Sub lstTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragDrop

        Dim strFiles() As String
        'Variable qui contiendra un tableau contenant les fichiers
        Dim i As Long 'Variable boucle

        'on recupere le drop dans le tableau
        strFiles = e.Data.GetData(DataFormats.FileDrop)

        For i = 0 To strFiles.GetUpperBound(0)
            lstTarget.Items.Add(strFiles(i))
        Next

    End Sub

Conclusion :


si ca me pete et si vous insistez je ferais mieux , tous les drag & drop possibles, image, texte, wav et tout et tout
Là c'est juste pour dépanner une patate donc...

a+
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Alain Proviste)