[dasktop]

مرحبا


انا لدي مشروع ويحتوي على اداتين ليست بوكس للمقارنة بينهما


وفي اليست بوكس الاول كلمات وارقام وفي الليست بوكس 2 كلمات وارقام



كتبت شرط اذا في ليست بوكس رقم 1 رقم او اسم غير موجود في ليست بوكس 2 يضهر رساله 

كود :

Dim p As Boolean
       For x5 As Integer = 0 To ListBox2.Items.Count - 1
           For x6 As Integer = 0 To ListBox2.Items.Count - 1
               For Each t In ListBox1.Items(x5)
                   For Each t2 In ListBox2.Items(x6)
                       Dim x As String = t
                       If (x.Contains(t2)) Then
                       Else
                           p = True
                       End If
                   Next
               Next
           Next
       Next
       If p = True Then
           MsgBox("no", MsgBoxStyle.Exclamation)
       End If

الشرط لايعمل الا اذا اول سطر مشابه لـ اول سطر ماهي المشكلة علماً تم استخدام دالة المقارنة string.Equals

[سعود]

انت تتعامل مع عدة قيم يعني النتيجة الاخيرة هي اللي بتظهر! او قل اختلاف النتائج يسبب ارتباك في الفكرة.
لو تغير الفكرة لسرد القيم الموجودة في 1 وغير موجودة في 2 ممكن تكون الطريقة ناجحة.

---

PHP كود :

For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim t As String = ListBox1.Items(i).ToString
            If ListBox2.Items.Contains(t) = False Then
                ListBox3.Items.Add(t)
            End If
        Next 


[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

لم يتعبني ايجاد كود مثل هذا وبتوفيق من الله توصلت له

وصديقي الغالي سعود لم يأل جهدا في ذلك 

اليكم المثال .. اضف الى كل ليست عناصر ثم اضغط  زر تحقق

ارجو تجربته وان ظهر اي خطأ يسعدني ذكره

ملاحظة ارجو تغيير نص الرسالة في الكود(هذا العنصر موجود) الى (هذا العنصر مشترك)

وكذلك حذف المتغير الرقمي KK لانني نسيت ذلك

[ابو روضة]

لماذا أغلب الناس بتأخذ الحلول وبتهرب دون إبداء كلمة شكر لصاحب الحل أو لمن قاموا بحل مشكلاتهم ؟

حقيقة شيئ يجعل العقل يستاء. والعجيب حينما يرى تعليق مثل هذا يعلق ويقول 

النت فصل أو كنت لسة بجرب.. والله الواحد بيضرب أخماس فى أسداس..

جزاك الله كل الخير أخى سعود وأخى ابراهيم على بذل يد العون للجميع رغم أن الموضوع لا يهمنى بأى شيئ.

[Rabeea Qbaha]

(25-08-19, 10:05 PM)ابو روضة كتب :

لماذا أغلب الناس بتأخذ الحلول وبتهرب دون إبداء كلمة شكر لصاحب الحل أو لمن قاموا بحل مشكلاتهم ؟

حقيقة شيئ يجعل العقل يستاء. والعجيب حينما يرى تعليق مثل هذا يعلق ويقول 

النت فصل أو كنت لسة بجرب.. والله الواحد بيضرب أخماس فى أسداس..

جزاك الله كل الخير أخى سعود وأخى ابراهيم على بذل يد العون للجميع رغم أن الموضوع لا يهمنى بأى شيئ.

و انا معك اخي، عندما يبذل شخص اخر جهد و وقت للمساعدة كلمة شكر تشجعه على المواصله 

و تحسسة بقيمة جهده

[ابراهيم ايبو]

الحمد لله والشكر لله

ولكل من شارك في هذا المنشور واخص بالشكر اخي الغالي سعود الذي تجده دائما ينبري للمساعدة

صدقا انا نلت اكثر مما استحق وربحت رضى الله والوالدين اولا ثم رضى اخوتي الغالين في هذا المنتدى الرائع ثانيا

وهناك ربح مادي علمي وهو الوصول الى هذا الكود رغم بساطته فلولا السؤال لما قدر لي ان اجرب واكتب والغي في الاكواد

كلنا بحاجة لان نتعلم وان يزداد رصيدنا العلمي والمعرفي

 دمتم ودامت هذه المحبة العظيمة التي يعبق فيها منتدانا الراقي

[سعود]

لا عليك اخي الكريم أبوروضة ربما السائل يحتاج وقت لفحص الاكواد او الامثلة.
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
اخي الكريم Rabeea Qbaha
ممكن فضلا لا امرا تشرح الرسم اللي بالتوقيع
متهيأ لي انه كوميدي لكن للاسف لم استطع معرفة الكلمات.
من زمان اريد اسالك لو ماعندك مانع.
تحياتي اخي الكريم.

[dasktop]

صحيح اخي  العزيز ابوروضة

والزميل سعود والزميل ابراهيم ايبو لاتكفيهم كلمات الشكر

على مايقدمونه من مساعدات للاعضاء بل يستحقون وسام التكريم والتميز

وافتقدنا الزميل جوكر ونتمنى ان يكون على مايرام

---

والاكواد لم تنجح والمشكلة اذا تم اضافة البيانات يدوياً يعمل

واذا كان كود  التحقق في اداة background  لايعميل

وهنا مثال على المشكله

[ابراهيم ايبو]

بارك الله فيك اخي dasktop 

اخونا الغالي والالمعي [Algokr] نفتقده جدا كلنا كان لنا من علمه نصيب

لايمكن لاحد ان يملأ الفراغ الذي تركه اتمنى ان يكون بالف خير وارقب عودته بفارغ الصبر

[dasktop]

نجح الكود التالي اذا تحققنا يدوياً عند الضغط على الزر

والمشكلة اذا وضعنا الكود في اداة ال background واصبح التحقق تلقائياً  لايعمل الكود !

علماً ان في listbox1 كلمات وارقام يتم اضافتها عن طريق background  رقم 2 

وفي listbox2 حروف وارقام ثابته لاتتغير 

والهدف من المقارنه لمعرفة اذا يوجد في listobx 1 سطر لايوجد في listbox2 يضهر رساله 

فكيف نجعل الكود يعمل في اداة 

كود :

               Dim p As Boolean
               For Each strs As String In ListBox1.Items
                   If ListBox2.Items.Contains(strs) Then
                   Else
                       p = True
                   End If
               Next

               If p = True Then
                   MsgBox("no", MsgBoxStyle.Exclamation)
               End If
           
           End If