تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] السحب والاسقاط من اداة picturebox الى مجلد مفتوح
#1
Brick 
سلام

السحب والاسقاط من اداة 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

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

موفقين


الملفات المرفقة
.rar   DragDrop PictureBox to Explorer.rar (الحجم : 16.39 ك ب / التحميلات : 37)
متغيب
الرد }}}}
تم الشكر بواسطة: محمود رغمان , Fantastico


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Brick [مثال] السحب والافلات على ايقونه البرنامج اكثر من مره والافلات على النافذه الطالب 0 359 15-08-15, 09:58 PM
آخر رد: الطالب
  معلومة ::: PictureBox RaggiTech 4 537 06-10-12, 09:23 PM
آخر رد: RaggiTech
  حلقة نقاش- السحب والإفلات في بيئة الدوت نيت RaggiTech 0 318 03-10-12, 01:39 PM
آخر رد: RaggiTech
  الدرس الثانى مع اداة PrintDocument هى الافضل RaggiTech 1 914 02-10-12, 05:17 PM
آخر رد: RaggiTech
  معلومة ::: PictureBox Blue Sky 4 714 30-09-12, 07:51 PM
آخر رد: Blue Sky

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم