الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار بخصوص list DragDrop

بدأه أبورنه في 13 فبراير 2012 · 7 رد · 350 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي عدد 3 عناصر list

اريد ان انقل النصوص بينها عن طريق استخدام DragDrop

بالسحب

وجزاك الله خير

تم تعديل هذه المشاركة بواسطة أبورنه في 13 فبراير 2012 في 00:32

#2

هل السؤال غير واضح أو أنها صعبة التطبيق

ولكم شكري

#3

يمكن عمل ذلك لكنك ستحتاج بعض الخطوات الإضافية وإستخدام دالة API صغيرة لتهيئة الخاصية حيث خاصية الـ Drag لليست تنشط عند الضغط في اي مكان حتى لو اردت استخدام الـ Scroll الخاص بالليست فسيقوم بعمل Drag وليس سكرول , وإيضاً عندما تقوم بعمل Drag فهو يقوم بعمل سحب لليست ككل وليس للأيتيم كالصورة :

post-170888-026950100 1329168860_thumb.j

لذلك نحتاج لدالة الـ API وبعض الاكواد للتحايل على هذه المسألة ..

لذلك يفضل الإستغناء عن فكرة الـ Drag & Drop وإستخدام ازرار لتقوم بنقل العناصر من ليست الى اخرى, كالصورة:

post-170888-024679200 1329168852_thumb.j

المرفقات
untitled.JPGuntitled2.JPG

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#4

هذا مثال حاولت و ضبط معي من ليست الى ليست و لكن لم استطيع ربطه على ثلاث ليستات

حسب فهمي

قم بسحب اي عنصر من list1 الى list2

ارجوا المحاولة وابلاغي بالنتيجة

اليك المثال

09-14e1-LB_DragDrop.rar

تم تعديل هذه المشاركة بواسطة أبورنه في 14 فبراير 2012 في 00:57

#5

جميل اخي الكريم ..

وبعمل الليستات مصفوفة Controls array نقوم بتنفيذ الكود على كل عناصر المصفوفة مهما كان عددها

List DrogDrop.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#6

جزاك الله خير

ضبط معالي

#7

السلام عليكم...

يبدو أنكم سبقتموني بينما كنت أجهز الرد. على أية حال، في الزيادة إفادة :) .

البرنامج في المرفقات.

DragDropWithLists.rar

نرجو الاستفادة و السلام.

1

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#8

فكرة جميلة وبسيطة .. منكم نستفيد smile.gif

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

مواضيع مشابهة