تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حلقة نقاش- السحب والإفلات في بيئة الدوت نيت
#1
كاتب الموضوع : samerselo

  • الهدف من حلقة النقاش هذه هي أن نغطي جميع جوانب موضوع السحب والإفلات في بيئة الدوت نيت بحيث نجعل من هذا الموضوع مرجعا متكاملا قدر الإمكان لموضوع السحب والإفلات في بيئة الدوت نيت
  • يرجى الالتزام في جميع الردود بالجدية والموضوعية وعدم وضع مشاركات شكر أو أية مشاركات أخرى لاتفيد في نقاش الموضوع الذي نناقشه وأية ردود تعتبر خارجة عن الموضوع سيتم حذفها بإذن الله


هذا مثال سريع مدعم بالتعليقات العربية لسحب عناصر من قائمة ListBox1 وإضافتها لقائمة ثانية ListBox2

كود :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' تجهيز صندوق القائمة الثاني ليقبل الإلقاء
Me.ListBox2.AllowDrop = True
End Sub


Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
' عند الضغط على زر الفأرة اليساري عند تحريك الفأرة قم بتحميل النص في حدث السحب
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.ListBox1.DoDragDrop(Me.ListBox1.Text, DragDropEffects.Copy)
End If
End Sub

Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter
' عند الدخول للقائمة ووجود بيانات سحب نصية قم بإظهار مؤشر مناسب
' يدل على قبول صندوق القائمة للعملية
If e.Data.GetDataPresent(DataFormats.Text) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If

End Sub

Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop
' إن كانت البيانات نصية أضفها إلى صندوق القائمة
If e.Data.GetDataPresent(DataFormats.Text) Then
Me.ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))
End If

End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 3,462 01-11-15, 11:51 PM
آخر رد: adel27
Brick [مثال] السحب والافلات على ايقونه البرنامج اكثر من مره والافلات على النافذه الطالب 0 361 15-08-15, 09:58 PM
آخر رد: الطالب
Brick [مثال] السحب والاسقاط من اداة picturebox الى مجلد مفتوح الطالب 0 417 23-05-15, 06:06 PM
آخر رد: الطالب
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 4,130 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  تفقيط الارقام فى الدوت نت مبرمج أوتار 16 3,730 30-08-13, 01:01 AM
آخر رد: abatenovtch
  التــعامل مع cmd من خلال الدوت نت مبتدئ في الاحتراف 2 530 24-04-13, 07:58 PM
آخر رد: مبتدئ في الاحتراف
  مقال- أفكار في الدوت نت كبف تصنع ColorPicker RaggiTech 0 437 05-10-12, 06:53 PM
آخر رد: RaggiTech
  مقال- أفكار في الدوت نت Overrides DisplayRectangle Property RaggiTech 1 522 05-10-12, 06:50 PM
آخر رد: RaggiTech
  مقال- أفكار في الدوت نت Image To ColorPicker RaggiTech 3 501 05-10-12, 06:48 PM
آخر رد: RaggiTech
  مقال - أفكار في الدوت نت OutAttribute Class RaggiTech 0 351 05-10-12, 06:00 PM
آخر رد: RaggiTech

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


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