السلام عليكم ورحمة الله وبركته
انا شاء الله الجميع بخير وعافية يارب
لدي مشاكل ولقد بحت في جميع الدروس والمنتديات ولم انجح في حاله
وانا شاء الله اجد يدى العون منكم اخوني
المشاكل يتمثل في التالي
لدي 2 ليست بوكس كما في الصورة
وانا اريد ان يتم نقل الاسماء بالتتالي
يعني عندم يتم اضافة اسم في ليست بوكس 2 يتم حدفه من ليست بوكس 1 وهاكذ تتابع
واضافة كلمة
انا شاء الله اكون وضحت الاشكال
واتمنا ان اجد حلا من الله ثم منكم
فلا تبخلو علينا ولو برد بسيط
والسلام عليكم
إذا كنت تريد نقل كل العناصر من List1 الى List2 بإضافة النص المكتوب في Text2 فقط استخدم :
List2.Clear For n = 0 To List1.ListCount - 1 List2.AddItem List1.List(n) & Text2.Text Next List1.Clear
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
السلام عليكم
اخي محمد غريب
بارك الله فيك
انا اريد نقل الاسماء بالتتابع يعني عندم يتم اضافة الاسم الاول من
الليست بوكس 1 الى اللسيت بوكس 2 اتنان واضاف له الكلمة الاضافية
تم يحدف الكلمة الاولة من الليست بوكس 1 وينتقل الى الكلمة التانية وهكد
وبالفعال كودك اعطاني فكرة اخرى و جاري التجريب واقتبسه
وتم تعديل على السطر
List2.AddItem textelt & Text2.Text
تحياتي
تم تعديل هذه المشاركة بواسطة عماد قدري في 3 مارس 2012 في 20:03
ولماذا تريد نقل العناصر بالتتابع طالما انت ستضغط على الزر وفي الحالتين ستجد كل العناصر تم نقلها في الحال دون ان تلاحظ ؟
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اخي محمد
عملت هد المشروع الصغير من قبل كما قلت انت وكنت النتيجة المطلوب
ولكن انا اريد التغير
رايت بعض البرامج تعمل هكد يعني بالتتابع واريد ان اعرف كيفية عملها على الاقل
وانا شاء الله كل هده المشاريع افكار جديدة ومعرفة اشئ اخرى للجميع
اضن انك فهمت قصدي الان
تحياتي الخالصة
ربنا يوفقك ..
على العموم إذا كنت تريد إظهار عملية التتابع للمستخدم يمكنك إستخدام Timer لتكون العملية ابطء ويستطيع المستخدم ملاحظتها ..
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
لا اضن ان Timer هو المطلوب
من الناحية النضرية احنا عملنا هد الكود
اقتباسList2.Clear
For n = 0 To List1.ListCount - 1
List2.AddItem List1.List(n) & Text2.Text
Next
List1.Clear
يعني لو استعملنا هد الكود ممكنا يكون تعرض والسباب هو List1.Clear
والله اعلم
لا لو استخدمنا Timer لن نستخد هذا الكود, بل سنجعل التايمر يقوم بنقل عنصر كل مرة
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