اذهب الي المحتوي
أوفيسنا

تغيير لون ازرار داخل نموذج بمجرد الضغط عليها


إذهب إلى أفضل إجابة Solved by kkhalifa1960,

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

ارجو المساعدة حيث لدى نموذج به عدد من الازرار مرتبطة وب supform عند الضغط تفتح تبويبات مختلفة.

ما اريده وهو عند الضغط على زر تبويب ١ يتغير لون الزر الى اللون الاحمر ويظل مستمر بنفس اللون لحين الضغط على التبويب ٢ يتغير لون زر تبويب ٢ باللون الاحمر وهكذا

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

وعليكم السلام 🙂

 

في وضع التصميم ، عند النقر على التبويب ، نلاحظ من اعدادات الكائن انه لا يوجد به اي شيء يشير الى اللون ،

لهذا السبب لا يمكن تغيير لونه، ولكن ،

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

image.png.448e1f566c7b476dfbe75c29313de44b.png

.

فعملت ملفين ، لون احمر وآخر رصاصي ، ووضعتهم في مجلد في نفس مسار البرنامج:

image.png.3ca86fac8956b438df146cdb896a35aa.png

.

 

 

والنتيجة:

هكذا سيكون النموذج:

image.gif.2dbe346c5a305e07144f323491b87dcb.gif

.

وهذا الكود يقوم بعملية تبديل الوان التبويب:

Private Sub Form_Load()

    Call TabCtl0_Click
End Sub

Private Sub TabCtl0_Click()

    Dim i As Integer
    Dim Pic_Path As String
    
    ' مسار مجلد الصور
    Pic_Path = Application.CurrentProject.Path & "\Forms_Tabs_Color_images\"
    
    ' التويب الذي تم النقر عليه يتم تغيير لونه الى ملف اللون الاحمر
    ' واما الباقية، فنغير لونها الى ملف اللون الرصاصي
    For i = 0 To Me.TabCtl0.Pages.Count - 1
    
        If Me.TabCtl0.Value = i Then
        
            Me.TabCtl0.Pages.Item(i).Picture = Pic_Path & "Red.jpg"
        Else
            
            Me.TabCtl0.Pages.Item(i).Picture = Pic_Path & "Gray.jpg"
        End If
        
    Next i
    
End Sub

 

جعفر

 

1605.Form_Tabs_Color.zip

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

  • أفضل إجابة

مشاركة مع معلمي واستاذي @jjafferr  تفضل استاذ @figo82eg محاولتي من خارج الصندوق . اليك الشرح والمرفق . ووافني بالرد:fff:

                                                                                                                image.gif.5f39bc0530b9e5bdd62574ac325ebb66.gif

DDChangeButtonColor.rar

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

وعليكم السلام اخوي خليفة 🙂

16 ساعات مضت, figo82eg said:

ما اريده وهو عند الضغط على زر تبويب ١ يتغير لون الزر الى اللون الاحمر ويظل مستمر بنفس اللون لحين الضغط على التبويب ٢ يتغير لون زر تبويب ٢ باللون الاحمر وهكذا

.

1. انا عملت اللي فهمي من كلمة التبويب ، والان عند صاحب السؤال الطريقتين 🙂

2. بالنسبة لعمل الشرح عن طريق Gif ، فيمكنك اللعب بطول وعرض Recorder بسحبه من اطرافه ، حتى لا تحتاج الى سحب نموذج الاكسس الى نافذة التسجيل 😁

 

جعفر

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

اشكرك أستاذى الكبير @jjafferr على مشاركتك وردك الذى استفدت منه كثير .

ولكن خاننى التعبير فى كلمة تبويب والمطلوب هو ما نفذه استاذى @kkhalifa1960

اشكركم جميعا على دعمك لأعضاء هذا المنتدى العظيم وجعل علمكم فى ميزان حسناتكم

تم تعديل بواسطه figo82eg
  • Thanks 1
رابط هذا التعليق
شارك

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