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

[figo82eg]

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

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

[jjafferr]

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

 

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

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

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

.

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

.

 

 

والنتيجة:

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

.

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

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

[kkhalifa1960]

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

                                                                                                                

DDChangeButtonColor.rar

[jjafferr]

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

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

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

.

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

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

 

جعفر

[figo82eg]

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

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

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

تم تعديل الجمعة at 07:04 بواسطه figo82eg