منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ عناصر محددة من لست إلى آخر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ عناصر محددة من لست إلى آخر (/showthread.php?tid=48489)

نسخ عناصر محددة من لست إلى آخر - مصمم هاوي - 13-05-24

مرفق لكم معلمي الكرام مثال لعملية نسخ عناصر محددة من لست بوكس 1 إلى لست بوكس 2
لكن المشكلة عند تحديد عنصر ثم نسخه للست بوكس 2 فإنه يتكرر لو أخترته مرة أخرى
وكذلك لو اخترت أكثر من عنصر فإنه لا يتم إلا نسخ العنصر الأخير

المطلوب ك
1- كيف يتم منع تكرار العنصر الذي نسخه للست بوكس 2
2- كيف يتم اختيار اكثر من عنصر ونسخه للست بوكس 2
3- التعديل على كود حفظ العناصر في اللست بوكس 2

علمـاً بأن الليست مرتبط بالداتا سورس
وتحياتي القلبية الطيبة لكم جميعاً
[attachment=29545]

RE: نسخ عناصر محددة من لست إلى آخر - أبو خالد الشكري - 13-05-24

مرحبا الأخ مصمم هاوي

تم التعديل على البرنامج ، ستجده في مرفقات هذه الرسالة !
1- الآن يتم نقل العناصر بطريقة صحيحة
2- يتم حفظ العناصر بعد الضغط على X  الذي على الفورم

أرجو لك التوفيق

RE: نسخ عناصر محددة من لست إلى آخر - مصمم هاوي - 13-05-24

(13-05-24, 11:02 AM)أبو خالد الشكري كتب : مرحبا الأخ مصمم هاوي

تم التعديل على البرنامج ، ستجده في مرفقات هذه الرسالة !
1- الآن يتم نقل العناصر بطريقة صحيحة
2- يتم حفظ العناصر بعد الضغط على X  الذي على الفورم

أرجو لك التوفيق

بارك الله فيك وجزاك كل خير  أخي الحبيب  أبو خالد فذا هو ابمطلوب

RE: نسخ عناصر محددة من لست إلى آخر - justforit - 13-05-24

ما رايك بالحدث ItemCheck  الخاص بالاداة checkedlistbox هل جربته
PHP كود :
If e.NewValue = 1 Then
     ListBox2.Items.Add(ListBox1.Text)
 Else
     ListBox2.Items.Remove(ListBox1.Text)
 End If 


RE: نسخ عناصر محددة من لست إلى آخر - مصمم هاوي - 13-05-24

(13-05-24, 03:09 PM)justforit كتب : ما رايك بالحدث ItemCheck  الخاص بالاداة checkedlistbox هل جربته
PHP كود :
If e.NewValue = 1 Then
     ListBox2.Items.Add(ListBox1.Text)
 Else
     ListBox2.Items.Remove(ListBox1.Text)
 End If 

بارك الله فيك
وجزاك كل خير  أخي الحبيب
سوف أجرب هذا الحدث عندما أرجع للبيت.
وشكراً جزيلاً على تفاعلك القيم

RE: نسخ عناصر محددة من لست إلى آخر - أبو خالد الشكري - 13-05-24

هذا تعديل بسيط على التعديل الذي عملته سابقا
في التعديل الجديد ستجد شيئين :
حفظ القائمة عن طريق زر Save ، وليس عن طريق إغلاق Form
يوجد زر جديد اسمه New مهمته مسح القائمة المحفوظة في قاعدة البيانات .

بالتوفيق إن شاء الله