شرح كيفية عمل السحب والاسقاط 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
المساهمات : 156
النقاط : 311
التقيم : 11
الدولة : تونس
الجنس : ذكر

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

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

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

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

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

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

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

ََ

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


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