Annonce

Collapse
No announcement yet.

The Drag'n Drop è_é

Collapse
X
 
  • Filter
  • Heure
  • Show
Clear All
new posts

  • The Drag'n Drop è_é

    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é:
    Code:
    [Nom_de_l'élèment] .AllowDrop = true
    *changez le truc en rouge.*

    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:
    Code:
      e.Effect = e.AllowedEffect
    dans DragDrop, dans cette exemple je vais charger un fichier image dans une picturebox:
    Code:
    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^^
    et j'ai encore colorié mon code.
    Bonne programmation a tous!
    Cordialement,
    Mars073
    Last edited by mars073; 24/05/2012, 17h40. Motif: couleur
Working...
X