23-05-15, 06:06 PM
سلام
السحب والاسقاط من اداة picturebox الى مجلد مفتوح مباشرة windows explorer.
هذا مثال لطريقة سحب صورة من اداة الصور picturebox الى اي مجلد مفتوح explorer.
في المرفقات مشروع جاهز
موفقين
السحب والاسقاط من اداة 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
في المرفقات مشروع جاهز
موفقين
متغيب