[مثال] السحب والاسقاط من اداة picturebox الى مجلد مفتوح

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    PictureBox1.AllowDrop = True



End Sub



Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

    If (e.Button = MouseButtons.Left) Then

        Dim filename As String = IO.Path.GetTempPath & "\" & "image.jpg"

        PictureBox1.Image.Save(filename, Imaging.ImageFormat.Jpeg)

        DoDragDrop(New DataObject(DataFormats.FileDrop, New String() {filename}), DragDropEffects.Move)

    End If

End Sub



Private Sub PictureBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter

    e.Effect = e.AllowedEffect

End Sub