لدي عدد 3 عناصر list
اريد ان انقل النصوص بينها عن طريق استخدام DragDrop
بالسحب
وجزاك الله خير
لدي عدد 3 عناصر list
اريد ان انقل النصوص بينها عن طريق استخدام DragDrop
بالسحب
وجزاك الله خير
تم تعديل هذه المشاركة بواسطة أبورنه في 13 فبراير 2012 في 00:32
هل السؤال غير واضح أو أنها صعبة التطبيق
ولكم شكري
يمكن عمل ذلك لكنك ستحتاج بعض الخطوات الإضافية وإستخدام دالة API صغيرة لتهيئة الخاصية حيث خاصية الـ Drag لليست تنشط عند الضغط في اي مكان حتى لو اردت استخدام الـ Scroll الخاص بالليست فسيقوم بعمل Drag وليس سكرول , وإيضاً عندما تقوم بعمل Drag فهو يقوم بعمل سحب لليست ككل وليس للأيتيم كالصورة :
لذلك نحتاج لدالة الـ API وبعض الاكواد للتحايل على هذه المسألة ..
لذلك يفضل الإستغناء عن فكرة الـ Drag & Drop وإستخدام ازرار لتقوم بنقل العناصر من ليست الى اخرى, كالصورة:
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
هذا مثال حاولت و ضبط معي من ليست الى ليست و لكن لم استطيع ربطه على ثلاث ليستات
حسب فهمي
قم بسحب اي عنصر من list1 الى list2
ارجوا المحاولة وابلاغي بالنتيجة
اليك المثال
تم تعديل هذه المشاركة بواسطة أبورنه في 14 فبراير 2012 في 00:57
جميل اخي الكريم ..
وبعمل الليستات مصفوفة Controls array نقوم بتنفيذ الكود على كل عناصر المصفوفة مهما كان عددها
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
جزاك الله خير
ضبط معالي
السلام عليكم...
يبدو أنكم سبقتموني بينما كنت أجهز الرد. على أية حال، في الزيادة إفادة :) .
البرنامج في المرفقات.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
فكرة جميلة وبسيطة .. منكم نستفيد ![]()
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer