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

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


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

 

رابط هذا التعليق
شارك

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

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

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

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
رابط هذا التعليق
شارك

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

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

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

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

 

Ka_test.accdb

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

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

استاذ @kanory🤗

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

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

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

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

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

Ka_test 2.accdb

hilite_demo.zip

  • Like 1
رابط هذا التعليق
شارك

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

استاذ @kanory🤗

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

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

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

 

  • Thanks 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information