منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بالتوفيق
يعجبني اجتهادك

(01-09-15, 11:33 PM)Lion_Ksa كتب : [ -> ]

PHP كود :

   Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles 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
حفظكـ الله

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

سلام


تلوين خليت مربع النص اللي في التقارير وطبعا مرتبط ببارامتر تكون كالتالي:
نظغط زر يمين على مربع النص ونختار textbox properties
نختار من اليسار fill ومن المجموعه اللي ظهرت نروح ل fill color ونضغط زر fx
نضع هذا الكود - وهذا الترتيب العكسي مقصود عشان يعمل


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





موفقين

(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





موفقين

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



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

---

اعتقد وجدت الحل جاري التجربة

سلام


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


موفقين

تمام استاذ جزاكـ الله خير وباركـ الله فيكـ
ربي يحفظكـ ويرضى عنكـ

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

=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)

سلام


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




موفقين

(02-09-15, 01:28 AM)الطالب كتب : [ -> ]سلام


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




موفقين

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