منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - السحب والاسقاط من اداة picturebox الى مجلد مفتوح

سلام

السحب والاسقاط من اداة picturebox الى مجلد مفتوح مباشرة windows explorer.

هذا مثال لطريقة سحب صورة من اداة الصور picturebox الى اي مجلد مفتوح explorer.

كود :

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

في المرفقات مشروع جاهز

موفقين

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الطالب