figo82eg قام بنشر يونيو 17 مشاركة قام بنشر يونيو 17 ارجو المساعدة حيث لدى نموذج به عدد من الازرار مرتبطة وب supform عند الضغط تفتح تبويبات مختلفة. ما اريده وهو عند الضغط على زر تبويب ١ يتغير لون الزر الى اللون الاحمر ويظل مستمر بنفس اللون لحين الضغط على التبويب ٢ يتغير لون زر تبويب ٢ باللون الاحمر وهكذا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 17 مشاركة قام بنشر يونيو 17 وعليكم السلام 🙂 في وضع التصميم ، عند النقر على التبويب ، نلاحظ من اعدادات الكائن انه لا يوجد به اي شيء يشير الى اللون ، لهذا السبب لا يمكن تغيير لونه، ولكن ، من الاعدادات هناك امكانية تغيير صورة خلفيته . فعملت ملفين ، لون احمر وآخر رصاصي ، ووضعتهم في مجلد في نفس مسار البرنامج: . والنتيجة: هكذا سيكون النموذج: . وهذا الكود يقوم بعملية تبديل الوان التبويب: 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 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kkhalifa1960 قام بنشر يونيو 17 أفضل إجابة مشاركة قام بنشر يونيو 17 مشاركة مع معلمي واستاذي @jjafferr تفضل استاذ @figo82eg محاولتي من خارج الصندوق . اليك الشرح والمرفق . ووافني بالرد DDChangeButtonColor.rar 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 18 مشاركة قام بنشر يونيو 18 وعليكم السلام اخوي خليفة 🙂 16 ساعات مضت, figo82eg said: ما اريده وهو عند الضغط على زر تبويب ١ يتغير لون الزر الى اللون الاحمر ويظل مستمر بنفس اللون لحين الضغط على التبويب ٢ يتغير لون زر تبويب ٢ باللون الاحمر وهكذا . 1. انا عملت اللي فهمي من كلمة التبويب ، والان عند صاحب السؤال الطريقتين 🙂 2. بالنسبة لعمل الشرح عن طريق Gif ، فيمكنك اللعب بطول وعرض Recorder بسحبه من اطرافه ، حتى لا تحتاج الى سحب نموذج الاكسس الى نافذة التسجيل 😁 جعفر رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 (معدل) اشكرك أستاذى الكبير @jjafferr على مشاركتك وردك الذى استفدت منه كثير . ولكن خاننى التعبير فى كلمة تبويب والمطلوب هو ما نفذه استاذى @kkhalifa1960 اشكركم جميعا على دعمك لأعضاء هذا المنتدى العظيم وجعل علمكم فى ميزان حسناتكم تم تعديل يونيو 21 بواسطه figo82eg 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان