Search the Community

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