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

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

قام بنشر

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

عندي فورم في البرنامج يحتوي على 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 خانة في كود واحد  للفورم مثلا وليس لكل خانة منفردة؟

 

قام بنشر

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

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

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

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

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

 

  • Like 1
  • Thanks 1
قام بنشر

شكرا اخي Kanory

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

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

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

والمثال مرفق

test.accdb

قام بنشر

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

  • Like 1
  • Thanks 1
قام بنشر (معدل)

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

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

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

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

 

Ka_test.accdb

تم تعديل بواسطه kanory
  • Like 2
  • Thanks 2
قام بنشر

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

استاذ @kanory🤗

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

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

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

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

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

Ka_test 2.accdb

hilite_demo.zip

  • Like 1
قام بنشر

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

  • Like 1
  • Thanks 1
قام بنشر

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

استاذ @kanory🤗

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

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

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

 

  • Thanks 2

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