تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تغير لون تيكست على التقرير اعتماداً على قيمة عددية معينة
#1
Big Grin 
بسم الله الرحمن الرحيم

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

اخوتي احبتي في الله 
الاساتذة الكرام حياكم الله وبياكم وللجنه سهل الله خطانا وخطاكم ، وزادكم وايانا بسطة في العلم والمعرفة 
حفظكم الله 

استفساري اليوم عن التقارير اقصد تقارير مايكروسوفت اكيد  Wink
لدي تيكست عدد 2 على التقرير
 التيكست الاولى : يتم عرض قيمه عددية فيها من قاعدة بيانات اريد اذا كان الرقم اقل من 60 يتغير لون التيكست الى احمر ، اما اذا كان الرقم اكبر او يساوي 60 فلا يتغير لون التيكست.

التيكست الثانية : ايضاً يتم عرض قيم فيها من قاعدة البيانات ولكن هنا اريد اكثر من لون فمثلاً اذا كان القيمة من 0 الى50 يتغير لون التيكست الى الاحمر ، واذا القيمة من 50 الى 60 الى اللون الاصفر ، واذا من 60 الى 70 الى البرتقالي ، واذا من 70 الى 80 الى اللون الوردي، واذا من 80 الى 90 الى اللون الازرق، واذا من 90 الى 100 الى اللون الاخضر.

هل الامر يتم عن طريق كود ام عن طريق الفتلر في التقرير وكيف ؟!
جزاكم الله خير وباركـ الله فيكم 
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
   Private Sub TextBox1_TextChanged(sender As System.ObjectAs System.EventArgsHandles TextBox1.TextChanged
        Select 
Case Val(TextBox1.Text)
 
           Case 0 To 49 TextBox1.BackColor Color.Red
            Case 50 To 59 
TextBox1.BackColor Color.Yellow
            Case 60 To 69 
TextBox1.BackColor Color.Orange
            Case 70 To 79 
TextBox1.BackColor Color.Pink
            Case 80 To 89 
TextBox1.BackColor Color.LightBlue
            Case 90 To 100 
TextBox1.BackColor Color.LightGreen
        End Select
    End Sub 

بالتوفيق
يعجبني اجتهادك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#3
(01-09-15, 11:33 PM)Lion_Ksa كتب :
PHP كود :
   Private Sub TextBox1_TextChanged(sender As System.ObjectAs System.EventArgsHandles TextBox1.TextChanged
        Select 
Case Val(TextBox1.Text)
 
           Case 0 To 49 TextBox1.BackColor Color.Red
            Case 50 To 59 
TextBox1.BackColor Color.Yellow
            Case 60 To 69 
TextBox1.BackColor Color.Orange
            Case 70 To 79 
TextBox1.BackColor Color.Pink
            Case 80 To 89 
TextBox1.BackColor Color.LightBlue
            Case 90 To 100 
TextBox1.BackColor Color.LightGreen
        End Select
    End Sub 

بالتوفيق
يعجبني اجتهادك
السلام عليكم ورحمة الله وبركاته 
جزاكـ الله خير استاذ على المدح باركـ الله فيكـ جزاكـ ربي الجنه 
انا طالب علم واحب ان اتعلم وفقكـ الله 
وجعله الله في ميزان حسناتكـ 
جاري التجربة وعائد بعد ذلكـ 
حفظكـ الله

العفو استاذ اعتقد والله اعلى واعلم ان الكود الذي وضعته حضرتكـ حفظكـ الله هو لتيكست موجودة على الفورم
اما التيكست التي اقصدها هي على التقرير Report
حفظكـ الله
الرد }}}
تم الشكر بواسطة: الطالب
#4
ولا يهمك اعذرني
واصفح لي الخطأ ذاك
ان شاء الله اجيب لك الحل في التقارير
انهي فقط ما انا فيه وابشر ان لم سبقني لهذا الشرف احد الاخوة
لن أتاخر بعون الله
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: الطالب , مبرمج بلا حدود
#5
سلام


تلوين خليت مربع النص اللي في التقارير وطبعا مرتبط ببارامتر تكون كالتالي:
نظغط زر يمين على مربع النص ونختار textbox properties
نختار من اليسار fill ومن المجموعه اللي ظهرت نروح ل fill color ونضغط زر fx
نضع هذا الكود - وهذا الترتيب العكسي مقصود عشان يعمل
كود :
=Switch(
Parameters!ReportParameter1.Value >= 90,"Green",
Parameters!ReportParameter1.Value >= 80,"Blue",
Parameters!ReportParameter1.Value >= 70,"Pink",
Parameters!ReportParameter1.Value >= 60,"Orange",
Parameters!ReportParameter1.Value >= 50,"Yellow",
Parameters!ReportParameter1.Value < 50,"Red"
)


افترضنا ان البارامتر اسمه ReportParameter1





موفقين
متغيب
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#6
(02-09-15, 12:44 AM)Lion_Ksa كتب : ولا يهمك اعذرني
واصفح لي الخطأ ذاك
ان شاء الله اجيب لك الحل في التقارير
انهي فقط ما انا فيه وابشر ان لم سبقني لهذا الشرف احد الاخوة
لن أتاخر بعون الله

السلام عليكم ورحمة الله وبركاته 
العفو استاذ الله يحفظكـ لا تعتذر اخجلتني 
لم يحصل شئ وفقكـ الله 
جزاكـ الله خير وباركـ الله فيكـ على كل ماتقدمه اسأل الله ان يكون في موازين حسناتكـ 
جزاكـ الله خير

(02-09-15, 12:51 AM)الطالب كتب : سلام


تلوين خليت مربع النص اللي في التقارير وطبعا مرتبط ببارامتر تكون كالتالي:
نظغط زر يمين على مربع النص ونختار textbox properties
نختار من اليسار fill ومن المجموعه اللي ظهرت نروح ل fill color ونضغط زر fx
نضع هذا الكود - وهذا الترتيب العكسي مقصود عشان يعمل
كود :
=Switch(
Parameters!ReportParameter1.Value >= 90,"Green",
Parameters!ReportParameter1.Value >= 80,"Blue",
Parameters!ReportParameter1.Value >= 70,"Pink",
Parameters!ReportParameter1.Value >= 60,"Orange",
Parameters!ReportParameter1.Value >= 50,"Yellow",
Parameters!ReportParameter1.Value < 50,"Red"
)


افترضنا ان البارامتر اسمه ReportParameter1





موفقين

السلام عليكم ورحمة الله وبركاته 
ما شاءالله لا قوة الا باالله 
استاذ اجاباتكـ دائما ابداع في ابداع وفقكـ الله دائما وابداً لما فيه صالح الاسلام والمسلمين 
حفظكـ الله 
لكن لا لم استخدم باراميتر ولكن حقل من قاعدة البيانات 
كما في الصورة 



جزاكـ الله خير  Blush
جربت استخدم اسم الحقل بدل الباراميتر لم تنجح الطريقة

اعتقد وجدت الحل جاري التجربة
Smile
الرد }}}
تم الشكر بواسطة:
#7
سلام


ضع Fields!Number_Rf.Value بدلا من Parameters!ReportParameter1.Value


موفقين
متغيب
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#8
تمام استاذ جزاكـ الله خير وباركـ الله فيكـ
ربي يحفظكـ ويرضى عنكـ

الحمدلله اشتغل هذا الكود

=Switch(
Fields!Number_Rf.Value >= 90,"Green",
Fields!Number_Rf.Value >= 80,"Blue",
Fields!Number_Rf.Value >= 70,"Pink",
Fields!Number_Rf.Value >= 60,"Orange",
Fields!Number_Rf.Value >= 50,"Silver",
Fields!Number_Rf.Value < 50,"Red"
)

لكن لدي استفسار اذا كان اسم اللون مكون من كلمتين جربت اكتب الاسم مع فراغ بين الكلمتين لم تنجح الطريقة هل من نصيحة جزاكـ الله خير
مثل اسم (Hot Pink)
الرد }}}
تم الشكر بواسطة: الطالب
#9
سلام


ضع اسم اللون كما هو بدون تعديل وطبعا كل اسما الالون لا يحتوي مسافات
وممكن تستعرضها من النقر على more colors الموجود نحن مجمعه الاوان القياسيه




موفقين
متغيب
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#10
(02-09-15, 01:28 AM)الطالب كتب : سلام


ضع اسم اللون كما هو بدون تعديل وطبعا كل اسما الالون لا يحتوي مسافات
وممكن تستعرضها من النقر على more colors الموجود نحن مجمعه الاوان القياسيه




موفقين

وعليكم السلام ورحمة الله وبركاته 
جزاكـ ربي الجنة 
الحمدلله تمام التمام 
حفظكـ الله واثابكـ خيراً
الرد }}}
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير لون السجلات في كريستال ريبورت بناء على قيم معينة صالح عبدالله 4 318 16-02-24, 09:30 PM
آخر رد: صالح عبدالله
  كيفية تصميم التقرير الكريستال ريبورت للطباعة على جانبين الورقة (وش وظهر) bassant 3 928 22-11-22, 12:22 PM
آخر رد: Taha Okla
  [VB.NET] الارقام في التقرير reporterviewer اسامه الهرماوي 6 2,815 16-06-22, 10:03 PM
آخر رد: emadtm
  [VB.NET] مشكلة التقرير لا يعمل على الاجهزة الاخرى New Pro 2 1,574 15-12-21, 05:55 PM
آخر رد: New Pro
  سبب خروج التقرير فارغ ويتم ملؤه عند غلق البرنامج وتشغيله مرة أخرى bassant 2 1,963 15-11-20, 07:19 PM
آخر رد: Murad81
  لا استطيع طباعة التقرير bassant 6 2,563 09-06-20, 10:43 AM
آخر رد: bassant
  كريستال ريبورت ضبط و عرض عدد سجلات محدد في التقرير habeb4all 0 1,711 05-05-20, 05:33 PM
آخر رد: habeb4all
  في التقرير اريد اظهار gotopagebuton bassant 0 1,263 04-02-20, 04:32 PM
آخر رد: bassant
  كيفية ملأ التقرير من parameters bassant 0 1,630 02-10-19, 03:02 PM
آخر رد: bassant
  سبب خروج التقرير فارغ bassant 1 1,708 17-09-19, 12:05 PM
آخر رد: bassant

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم