مرحبا
انا لدي مشروع ويحتوي على اداتين ليست بوكس للمقارنة بينهما
وفي اليست بوكس الاول كلمات وارقام وفي الليست بوكس 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 لانني نسيت ذلك
لماذا أغلب الناس بتأخذ الحلول وبتهرب دون إبداء كلمة شكر لصاحب الحل أو لمن قاموا بحل مشكلاتهم ؟
حقيقة شيئ يجعل العقل يستاء. والعجيب حينما يرى تعليق مثل هذا يعلق ويقول
النت فصل أو كنت لسة بجرب.. والله الواحد بيضرب أخماس فى أسداس..
جزاك الله كل الخير أخى سعود وأخى ابراهيم على بذل يد العون للجميع رغم أن الموضوع لا يهمنى بأى شيئ.
(25-08-19, 10:05 PM)ابو روضة كتب : [ -> ]لماذا أغلب الناس بتأخذ الحلول وبتهرب دون إبداء كلمة شكر لصاحب الحل أو لمن قاموا بحل مشكلاتهم ؟
حقيقة شيئ يجعل العقل يستاء. والعجيب حينما يرى تعليق مثل هذا يعلق ويقول
النت فصل أو كنت لسة بجرب.. والله الواحد بيضرب أخماس فى أسداس..
جزاك الله كل الخير أخى سعود وأخى ابراهيم على بذل يد العون للجميع رغم أن الموضوع لا يهمنى بأى شيئ.
و انا معك اخي، عندما يبذل شخص اخر جهد و وقت للمساعدة كلمة شكر تشجعه على المواصله
و تحسسة بقيمة جهده
الحمد لله والشكر لله
ولكل من شارك في هذا المنشور واخص بالشكر اخي الغالي سعود الذي تجده دائما ينبري للمساعدة
صدقا انا نلت اكثر مما استحق وربحت رضى الله والوالدين اولا ثم رضى اخوتي الغالين في هذا المنتدى الرائع ثانيا
وهناك ربح مادي علمي وهو الوصول الى هذا الكود رغم بساطته فلولا السؤال لما قدر لي ان اجرب واكتب والغي في الاكواد
كلنا بحاجة لان نتعلم وان يزداد رصيدنا العلمي والمعرفي
دمتم ودامت هذه المحبة العظيمة التي يعبق فيها منتدانا الراقي
لا عليك اخي الكريم أبوروضة ربما السائل يحتاج وقت لفحص الاكواد او الامثلة.
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
اخي الكريم Rabeea Qbaha
ممكن فضلا لا امرا تشرح الرسم اللي بالتوقيع
متهيأ لي انه كوميدي لكن للاسف لم استطع معرفة الكلمات.
من زمان اريد اسالك لو ماعندك مانع.
تحياتي اخي الكريم.
صحيح اخي العزيز ابوروضة
والزميل سعود والزميل ابراهيم ايبو لاتكفيهم كلمات الشكر
على مايقدمونه من مساعدات للاعضاء بل يستحقون وسام التكريم والتميز
وافتقدنا الزميل جوكر ونتمنى ان يكون على مايرام
والاكواد لم تنجح والمشكلة اذا تم اضافة البيانات يدوياً يعمل
واذا كان كود التحقق في اداة background لايعميل
وهنا مثال على المشكله
بارك الله فيك اخي dasktop
اخونا الغالي والالمعي [Algokr] نفتقده جدا كلنا كان لنا من علمه نصيب
لايمكن لاحد ان يملأ الفراغ الذي تركه اتمنى ان يكون بالف خير وارقب عودته بفارغ الصبر
نجح الكود التالي اذا تحققنا يدوياً عند الضغط على الزر
والمشكلة اذا وضعنا الكود في اداة ال 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