The Drag'n Drop è_é

[mars073]

Salut all,

donc voici un tuto sur le drag'n drop, ce qui consiste juste dans le fait de faire glisser un fichier dans un un programme.

Donc sélectionnez votre élément ou votre form (selon la zone où vous voulez faire glisser le fichier, puis dans ses propriétés cherchez "AllowDrop" et activez le (True), si il n'est pas dans les propriétés, il est possible d'aller l'écrire directement dans le code du desing mais pour faire simple on va mettre le code suivant dans l’évènement du la form au chargement (double click sur la form ou double click sur l'évènement load de l'objet) et je rappel que ce code n'est que si vous n'avez pas trouvé "AllowDrop" dans les propriété:

[Nom_de_l'élèment] .AllowDrop = true

Sélectionnez votre élément et dans les propriétés allez dans l'onglet des events () et double click sur "DragEnter" et "DragDrop",

dans DragEnter entrez le code suivant:

  e.Effect = e.AllowedEffect

dans DragDrop, dans cette exemple je vais charger un fichier image dans une picturebox:

Dim pictr() As String
Dim str As String ' va contenir le chamin d'accès
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    pictr = e.Data.GetData(DataFormats.FileDrop)
    str = pictr(0)
    PictureBox1.Load(str) 'je charge l'image
End If

Et voilà c'est finis^^

Bonne programmation à tous!

Cordialement,

Mars073

[Azad]

Très sympa, comme le reste.

Bien joué, merci du partage.

+1 Rep.

[Soon]

Ca marche pour les fichiers à dl ?

Merci bien.

[Evaelis]

Ca marche pour les fichiers à dl ?

Merci bien.

C'est peut être un peu tard mais quand tu drag'n'drop une image, tu obtiens l'URL du fichier.