شرح كيفية عمل السحب والاسقاط Drag and Drop فى Listbox

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

شرح كيفية عمل السحب والاسقاط Drag and Drop فى Listbox

مُساهمة من طرف م/موسي في الأربعاء نوفمبر 14, 2012 12:07 pm

بسم الله الرحمن الرحيم



أخوانى الكرام أهلا بكم ....اليوم راح أقدم لكم درس جديد عن كيفية عمل سحب و اسقاط للعناصر بداخل 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
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى