شرح كيفية عمل السحب والاسقاط 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_قم بتشغيل برنامجك و شاهد النتيجية كما فى الصورة التالية :



avatar
م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 130
النقاط : 253
التقيم : 9
الدولة : تونس
الجنس : ذكر

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

الرجوع الى أعلى الصفحة


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