تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفقيط الارقام فى الدوت نت مبرمج أوتار 17 4,780 20-04-17, 12:21 PM
آخر رد: محمد بوقزاحة
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 4,350 01-11-15, 11:51 PM
آخر رد: adel27
Brick [مثال] السحب والافلات على ايقونه البرنامج اكثر من مره والافلات على النافذه الطالب 0 509 15-08-15, 09:58 PM
آخر رد: الطالب
Brick [مثال] السحب والاسقاط من اداة picturebox الى مجلد مفتوح الطالب 0 598 23-05-15, 06:06 PM
آخر رد: الطالب
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 5,025 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  التــعامل مع cmd من خلال الدوت نت مبتدئ في الاحتراف 2 697 24-04-13, 07:58 PM
آخر رد: مبتدئ في الاحتراف
  مقال- أفكار في الدوت نت كبف تصنع ColorPicker RaggiTech 0 567 05-10-12, 06:53 PM
آخر رد: RaggiTech
  مقال- أفكار في الدوت نت Overrides DisplayRectangle Property RaggiTech 1 719 05-10-12, 06:50 PM
آخر رد: RaggiTech
  مقال- أفكار في الدوت نت Image To ColorPicker RaggiTech 3 672 05-10-12, 06:48 PM
آخر رد: RaggiTech
  مقال - أفكار في الدوت نت OutAttribute Class RaggiTech 0 480 05-10-12, 06:00 PM
آخر رد: RaggiTech

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


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