شرح كيفية عمل السحب والاسقاط Drag and Drop فى Listbox
صفحة 1 من اصل 1 • شاطر
شرح كيفية عمل السحب والاسقاط Drag and Drop فى Listbox
بسم الله الرحمن الرحيم
أخوانى الكرام أهلا بكم ....اليوم راح أقدم لكم درس جديد عن كيفية عمل سحب و اسقاط للعناصر بداخل Listbox ...فهيا بنا .
1_ قم بفتح مشروع قياسى جديد
2_ أضف للفورم عدد واحد Listbox
3_ قم بإضافة الكود التالى فى حدث التحميل للفورم Form_Load
4 _ قم بإضافة الكود التالى فى حدث السحب و الاسقاط فى List1_OLEDragDrop
5_قم بتشغيل برنامجك و شاهد النتيجية كما فى الصورة التالية :
أخوانى الكرام أهلا بكم ....اليوم راح أقدم لكم درس جديد عن كيفية عمل سحب و اسقاط للعناصر بداخل Listbox ...فهيا بنا .
1_ قم بفتح مشروع قياسى جديد
2_ أضف للفورم عدد واحد Listbox
3_ قم بإضافة الكود التالى فى حدث التحميل للفورم Form_Load
- الكود:
List1.DragMode = vbAutomatic
List1.OLEDragMode = vbAutomatic
List1.OLEDropMode = vbAutomatic
4 _ قم بإضافة الكود التالى فى حدث السحب و الاسقاط فى List1_OLEDragDrop
- الكود:
Dim ItemCount As Integer
Dim I As Integer
On Error Resume Next
ItemCount = Data.Files.Count
For I = 1 To ItemCount
List1.AddItem Data.Files(I)
Next
If Err Then Err.Clear
5_قم بتشغيل برنامجك و شاهد النتيجية كما فى الصورة التالية :
م/موسي- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
رد: شرح كيفية عمل السحب والاسقاط Drag and Drop فى Listbox
الف الف شكر ....هل يمكن فعل ذلك فى مربع الصورة ؟
1zaza- ...
- تاريخ التسجيل : 18/11/2018
المساهمات : 39
النقاط : 66
التقيم : 3
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 8:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الإثنين مارس 25, 2024 12:49 am من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 9:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 9:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 9:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 3:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 3:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 3:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 2:54 pm من طرف رانيا حماد