ارجو المساعدة في كود لتغيير خصائص خانات الفورم

[abouzak]

السلام عليكم ورحمة الله وبركاته

عندي فورم في البرنامج يحتوي على 20 خانة

قمت بعمل التالي على كل خانة على حدا

Private Sub Date_GotFocus()
    Me.Date.BorderColor = RGB(51, 153, 255)
    Me.Date.BackColor = RGB(242, 242, 242)
End Sub

Private Sub Date_LostFocus()
    Me.Date.BorderColor = RGB(0, 0, 0)
    Me.Date.BackColor = RGB(255, 255, 255)
End Sub

هل يمكن اختصار ما طبق على 20 خانة في كود واحد  للفورم مثلا وليس لكل خانة منفردة؟

 

[kanory]

وعليكم السلام ورحمة الله وبركانه

أخي الكريم لو وضعت مثال توضيحي ليسهل التطبيق عليه بارك الله فيك

لكن طبق هذا الكود لربما يفي بالمطلوب

Public Sub EkCtrControl(frm As Form)
    On Error Resume Next
    Dim EkCtr As Control
    For Each EkCtr In frm
        If TypeOf EkCtr Is TextBox Then EkCtr.ForeColor = اكتب ماتريد
        EkCtr.FontSize = اكتب ماتريد
        EkCtr.FontName = اكتب ماتريد
        EkCtr.BackColor = اكتب ماتريد
        If TypeOf EkCtr Is CommandButton Then EkCtr.ForeColor = اكتب ماتريد
        EkCtr.FontSize = اكتب ماتريد
        EkCtr.FontName = اكتب ماتريد
        If TypeOf EkCtr Is Label Then EkCtr.ForeColor = اكتب ماتريد
        EkCtr.FontSize = اكتب ماتريد
        EkCtr.FontName = اكتب ماتريد
        EkCtr.BackColor = اكتب ماتريد
        If TypeOf EkCtr Is ListBox Then EkCtr.ForeColor = اكتب ماتريد
        EkCtr.FontSize = اكتب ماتريد
        EkCtr.FontName = اكتب ماتريد
        EkCtr.BackColor = اكتب ماتريد
    Next EkCtr
End Sub

اتمنى اني وفقت في الاجابة

 

[abouzak]

شكرا اخي Kanory

على سرعة الاجابة

انا مبتدئ بالاكسيس

ساجرب تعديل الكود الذي طرحته

والمثال مرفق

test.accdb

[kanory]

جرب وبلغني بالنتيجة ... بالتوفيق

[abouzak]

للأسف لم افلح في تطبيق الكود

[abouzak]

للرفع

هل من مساعدة !

[kanory]

اخي الكريم اعطني فرصة للوصول للمنزل لاستخدام الحاسب لاضع لك الحل ان شاء الله تعالى ... واسف على تأخري في الرد ... لاني نسيت موضوعك ... 

[kanory]

السلام عليكم ورحمة الله وبركانه

أخي الكريم مثالك بعد التعديل

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

اتمنى اني وفقت في الاجابة

 

Ka_test.accdb

تم تعديل مايو 22, 2018 بواسطه kanory

[abouzak]

شكرا جزيلا اخي الكريم

شكرا على الاهتمام والمساعدة

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

استاذ @kanory🤗

اولا جزاكم الله خيرا وجعلكم سابقون بالخير كله ان شاء الله

ثانيا استسمح حضرتك عدلت تعديل طفيف 

قمت باضاقة عناصر اخرى على الوحدة النمطية

وكذلك التحكم فى لون الاطار للعنصر ولون الخط 

واهديكم ايضا مثال حصلته من قبل من احد المواقع الاجنبيه اعجبنى جدا وقتها ولكن الان اصبح العمل اسهل وابسط وبايد عربية 

Ka_test 2.accdb

hilite_demo.zip

[kanory]

اخي الكريم ابا جودي .... السلام عليكم ورحمة الله وبركاته ... كل عام وانت بخير .... شرف لي تعليكم وامثلتكم القيمة ... بارك الله فيكم 

[ابو جودي]

وعليكم السلام ورحمة الله تعالي وبركاته

استاذ @kanory🤗

وكل عام وانتم الى الله اقرب ان شاء الله وفى صحة وسعادة انتم واحبابكم وامة محمد صلوات ربي وسلامه عليه

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

جزاكم الله خيرا اخى الحبيب