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

اذهب الى الأسفل

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



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

تاريخ التسجيل : 18/02/2011
المساهمات : 171
النقاط : 330
التقيم : 11
الدولة : تونس
الجنس : ذكر

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

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

مُساهمة من طرف 1zaza في الأحد نوفمبر 18, 2018 4:53 pm

الف الف شكر ....هل يمكن فعل ذلك فى مربع الصورة ؟
1zaza
1zaza
..
..

تاريخ التسجيل : 18/11/2018
المساهمات : 28
النقاط : 44
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

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

ََ

مواضيع ذات صلة


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