+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] البحث بشرطين (/showthread.php?tid=19560)
الصفحات:
1
2
البحث بشرطين - Abdellah - 07-03-17
السلام عليكم و رحمة الله
إخواني الاعزاء المرجو تعديل هاذا المثال بحيث وضع شرطين في زر البحث
- الشرط الاول فيما يخص( العمر) التسكت بوكس 5 إذا كان العمر يتجاوز العدد 25 أو أقل يكون في الشرط إنذارإما بتغير لون التسكت بوكس أوبأي شيء
- الشرط الثاني فيما يخص(المعلومات) التسكت بوكس6 يكون إنذار إذا كان جزء من كلمة خروج
جزاكم الله كل خير
RE: البحث بشرطين - السيد الغالي - 07-03-17
السلام عليكم
تم التعديل حسب طلبكم . لكن فيما يخص الفقرة الاولى وهي (اذا كان يتجاوز 25 او اقل ) ما المقصود باقل؟ هل تريد ان يكون العمر فقط 25 ؟ ارجو التوضيح ! لذا وضعت شرط اذا كان العمر اكبر من 25 فان لون خلفية النص يتغير
RE: البحث بشرطين - Abdellah - 07-03-17
مشكور السيد غالي على التعديل أقصد 25 فقط
وجزاكم الله كل خير
RE: البحث بشرطين - السيد الغالي - 07-03-17
اذن ضع الكود التالي
If Val(Text5) = 25 Then Text5.BackColor = &HFF&
بدل
If Val(Text5) > 25 Then Text5.BackColor = &HFF&
RE: البحث بشرطين - Abdellah - 07-03-17
مشكورين ألف شكر أخي الغالي
RE: البحث بشرطين - Abdellah - 04-05-17
السلام عليكم السيد الغالي
كيف حالك السيد غالي عندي طلب الله يعافيك في تعديل هاذا المثال مرتا أحرى
لأنني أدخلت عليه [b]الأداة SKINCRAFTER فأصبح شرط تغيير [b][b]اللون[/b] [b]في التيكست بوكس5 لايعمل[/b] [b] عندما يكون العمر أكثر من 25 سنة [/b] [/b][/b]
[b]جراك الله كل خير
[/b]
RE: البحث بشرطين - Ahmed_Mansoor - 05-05-17
السلام عليكم ورحمة الله وبركاته
أهلا أخي الكريم , المشكلة في الأداة SKINCRAFTER لأنها تغير ستايل جميع الأداوت بما فيها التكست بوكس وأيضا النص في التكست لايظهر بشكل سليم هذا سبب المشكلة .
RE: البحث بشرطين - Abdellah - 05-05-17
السلام عليكم أستاذنا المحترم شكرا على الرد
أعلم ذالك أخي أحمد وهل في حل لهاذه المشكلة
RE: البحث بشرطين - Ahmed_Mansoor - 05-05-17
أهلا أخي الكريم ، سأرى إذا كان من ضمن أوامر أو إجراءات أداة الskin أوامر نستطيع من بواستطها إستثناء أدوات من تطبيق الستايل عليها عندها تنحل المشكله أم إذا كان لايوجد ذلك فالمشكله ستظل ، أنا الآن لست بجانب الكمبيوتر لكي أجرب ما ذكرته لك سأجرب لاحقاً إن شاء الله إذا لم يقم أحد الإخوة الأعضاء بذلك أو جرب أنت أخي العزيز .
RE: البحث بشرطين - Abdellah - 05-05-17
مشكور أخي أحمد بالتوفيق إن شاء الله