اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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


  • Like 2
قام بنشر

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

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

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

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

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

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

قام بنشر

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

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

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

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

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

تقبل تحياتي

  • أفضل إجابة
قام بنشر

السلام عليكم

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information