كيف تجعل التكس بوكس يتغير لونها حسب قيمتها

[محمد لطفى]

كيف تجعل التكس بوكس يتغير لونها حسب قيمتها

[عبدالله باقشير]

السلام عليكم

 

جرب هذا

Private Sub TextBox1_Change()
On Error GoTo 1
Me.TextBox1.BackColor = Val(Me.TextBox1)
1
End Sub

تحياتي

[ياسر خليل أبو البراء]

من المفترض أنه إذا وجد الماء بطل التيمم .. فالأستاذ الكبير عبد الله باقشير لا يمكن مضاهته بأي حال من الأحوال

ولكن إثراء للموضوع تفضل أخي محمد

Private Sub TextBox1_Change()
    Select Case Me.TextBox1.Value
         
    Case Is < 2
        Me.TextBox1.BackColor = &H80FF80
         
    Case 2 To 4
        Me.TextBox1.BackColor = &H80FFFF
         
    Case Is > 4
        Me.TextBox1.BackColor = &HFF
    End Select
End Sub

[محمد لطفى]

السلام عليكم ورحمه

انه من دواعى سرورى وسعادتى

ان يكون الرد من استاذين جليلين وهما

الاستاذ / عبدالله باقشير - الاستاذ / ياسر خليل

ادام الله عليهم الصحه ونفعنا الله بعلمهم وجعلهم زخرا لنا وجزاهم الله خيرا

ولكن لى سؤال اخر وهو كيف يتغير لونها الى الاحمر ولو ان قيمتها اقل مثلا من 5000

[ياسر خليل أبو البراء]

الأخ الحبيب محمد لطفي ..

مشكور على كلماتك الطيبة

بالنسبة لطبك : حدد شروطك وغير في الكود بما يناسبك

لو هيكون صعب ..حدد ألوان الطيف وشروط الطيف اللي انت عايزها

يعني لو أقل من 5000 يبقا اللون أحمر ..طيب لو أكبر من أو يساوي هتقلب اللون ايه .. ويا ترى فيه شروط تانية

تقبل تحياتي

[محمد لطفى]

السلام عليكم

اتوجه مره اخرى الى الاخوه الزملاء بكامل الشكر والعرفان بالجميل

ومره اخرى اخص بالذكر الاستاذ / عبدالله باقشير  والاستاذ / ياسر خليل

ولذلك مرفق ملف صغير تم تنفيذه استنادا الى علمهم وحسب مافهمت

ليستفيد منه الجميع وليكن شمعه للباحثين عن العلم

نتيجه التجربه.rar

[ياسر خليل أبو البراء]

الحمد لله ..

بس متحرمناش من شموعك يا أخ محمد

مهمة جدا الشموع (إنت عندك عيد ميلاد النهاردة ولا ايه!!)

[محمد لطفى]

السلام عليكم

استاذى الفاضل / ياسر خليل

كل اربعاء وانت طيب اليوم عيد اللحمه عندنا