[مبرمج بلا حدود]

(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
حفظكـ الله