DRAG AND DROP IMAGE INTERNET

Commentaire de alosamoelle le 16/03/2008 20:46:29

Merci Kite37, tu as raison je suis un peu fainéant pour mes variables et ce n'est pas une bonne chose, promis je vais essayer de faire attention.

Commentaire de alosamoelle le 26/03/2009 12:11:48

Bonjour et merci pour la note,
si tu veux faire directement le drop sur la picturebox il faut faire ainsi.
tu autorise le drop dans le load de la form

        PictureBox1.AllowDrop = True

  et ensuite c'est comme le textbox

Private Sub PictureBox1_DragEnter1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

  Try


            ' recupere la donnée
            Dim strFiles
            'Variable qui contiendra un tableau contenant les fichiers


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


            ' on recupere le début de l'adresse de l'image
            Dim débutadresse = Split(strFiles, "src=")
            ' ensuite on ne prend que la source
            ' prend le guillemet
            Dim guillemet = Chr(34)
            Dim adresse = Split(débutadresse(1), guillemet)
            ' prend le nom de l'image pour l'enregistrement
            Dim imaged = Split(adresse(1), "/")
            Nomdelimage = imaged(UBound(imaged))
            PictureBox1.Image = RecupFichierImageInternet(adresse(1))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


Voilà bonne prog.