بسم الله الرحمن الرحيم
شباب أبحث عن كود يقوم بتغيير خلفية صندوق النص "الحالي" إلى لون معين
و عند فقد التركيز يعود إلى لون الخلفية الأول
مع تغيير لون الخلفية لصندوق النص الذي سيأخذ التركيز
و شكراً
سبحان الله و بحمده سبحان الله العظيم
أبو كريم و مازن و نور
vb.net - c# - asp.net - oracle - sql server
manager@tm-center.com
00966508268649
بسيطة // في حدث الـ GotFocus لكل اداة نص ضع الكود التالي :
TextBoxName.BackColor = QbColor(14)
وفي حدث الـLostFocus لكل أداة نص ايضا ضع الكود التالي :
TextBoxName.BackColor = QbColor(15)
هذه هي الفكرة.
او يمكنك عمل دالة تضم الكودين . كالتالي .
Sub LigthFocus(swText As TextBox, swLigth As Boolean) IF swLigth = True Then swText.BackColor = QbColor(14) Else swText.BackColor = QbColor(15) End IF End Sub
تحياتي ، كلا الكودين متشابهين ولكن الاخيرة في دالة ، حتي تسهل عليك المهمة .
ض الدالة في Module استدعها في كل من الحدثين GotFocus واعطها القيمة True للبراميتر swLigth واعطها القيمة False في الحدث LostFocus .
سلاماتي
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
مشكور أخي Prof ...
كنت أستخدم الطريقة الأولي و هي وضع كود داخل حدث got focuse و lostfocuse
و لكن فىبعض الحاللات تكون الشاشة بها أكثر من 30 أداة
و لكن أعتقد فكرة الكود الثاني جميلة
كما أعتقد أنه يجب التعريف عن swtext as control
و شكراُ لك
سبحان الله و بحمده سبحان الله العظيم
أبو كريم و مازن و نور
vb.net - c# - asp.net - oracle - sql server
manager@tm-center.com
00966508268649
يوجد حل ثالث لو انك تستخدم control array فيمكنك في هذه الحالة ان تكتب الكود مرة واحدة فقط كما ان هذا سيساهم في تقليل استخدام الذاكرة بشكل ملحوظ لأنك ستسخدم just one instance
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
شكرا على الموضوع و الرد السريع
حفظكم الله
هذا الموضوع مغلق.