تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال تغيير ثيم البرنامج وقت التشغيل
#1
السلام عليكم مرحبا شباب كيف حالكم

هذا مثال لإختيار ولتغيير الثيم وقت تشغيل البرنامج  كخيارات الاؤبشن مثلا

الثال في المرفقات

عيب هذا المثال  انه في الكود عليك كتابة اسماء كل الادوات في كل الفورمات ليتغير ثيمها  Confused
ربما نجد حل عند الخبراء Smile

هذا المرفق


الملفات المرفقة
.zip   SimpleTheme.zip (الحجم : 131.01 ك ب / التحميلات : 1,045)
الرد }}}
#2
الله يحفذك اخي
الرد }}}
تم الشكر بواسطة:
#3
جميل جداً بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#4
أكثر من رائع
الرد }}}
تم الشكر بواسطة:
#5
(29-04-16, 11:17 AM)honest كتب : السلام عليكم مرحبا شباب كيف حالكم

هذا مثال لإختيار ولتغيير الثيم وقت تشغيل البرنامج  كخيارات الاؤبشن مثلا

الثال في المرفقات

عيب هذا المثال  انه في الكود عليك كتابة اسماء كل الادوات في كل الفورمات ليتغير ثيمها  Confused
ربما نجد حل عند الخبراء Smile

هذا المرفق

بارك الله فيك
لإصلاح "العيب" استبدل كود الفورم 2 بهذا الكود

كود :
Imports SimpleTheme.ThirteenButton

Public Class Form2
   ' رد على موضوع
   ' مثال تغيير ثيم البرنامج وقت التشغيل
   ' http://vb4arb.com/vb/showthread.php?tid=15626
   ' إضافة إمكانية تغيير الثيم لكل الأدوات في فورم معين
   ' بدلا من كتابة اسم كل اداة لوحدها كما كانت في السابق
   
   Private Sub SetColorScheme(form As Form, Skin As ColorSchemes)

       For Each MyControl As Control In form.Controls
           If (MyControl.GetType() Is GetType(ThirteenForm)) Then
               Dim MyCustomForm As ThirteenForm = CType(MyControl, ThirteenForm)
               MyCustomForm.ColorScheme = Skin

               For Each ctrl As Control In MyCustomForm.Controls

                   If (ctrl.GetType() Is GetType(ThirteenButton)) Then

                       Dim MyCustomControl As ThirteenButton = CType(ctrl, ThirteenButton)
                       MyCustomControl.ColorScheme = Skin

                   ElseIf (ctrl.GetType() Is GetType(ThirteenCheckBox)) Then
                       Dim MyCustomControl As ThirteenCheckBox = CType(ctrl, ThirteenCheckBox)
                       MyCustomControl.ColorScheme = Skin

                   ElseIf (ctrl.GetType() Is GetType(ThirteenComboBox)) Then
                       Dim MyCustomControl As ThirteenComboBox = CType(ctrl, ThirteenComboBox)
                       MyCustomControl.ColorScheme = Skin

                   ElseIf (ctrl.GetType() Is GetType(ThirteenControlBox)) Then
                       Dim MyCustomControl As ThirteenControlBox = CType(ctrl, ThirteenControlBox)
                       MyCustomControl.ColorScheme = Skin

                   ElseIf (ctrl.GetType() Is GetType(ThirteenRadioButton)) Then
                       Dim MyCustomControl As ThirteenRadioButton = CType(ctrl, ThirteenRadioButton)
                       MyCustomControl.ColorScheme = Skin

                   ElseIf (ctrl.GetType() Is GetType(ThirteenTabControl)) Then
                       Dim MyCustomControl As ThirteenTabControl = CType(ctrl, ThirteenTabControl)
                       MyCustomControl.ColorScheme = Skin

                   ElseIf (ctrl.GetType() Is GetType(ThirteenTextBox)) Then
                       Dim MyCustomControl As ThirteenTextBox = CType(ctrl, ThirteenTextBox)
                       MyCustomControl.ColorScheme = Skin
                   End If
               Next

           End If

       Next

   End Sub


   Private Sub ThirteenButton1_Click(sender As Object, e As EventArgs) Handles ThirteenButton1.Click
       If ThirteenComboBox1.Text = "Dark" Then

           SetColorScheme(Form1, ColorSchemes.Dark)
           SetColorScheme(Me, ColorSchemes.Dark)


       Else : ThirteenComboBox1.Text = "Light"
           SetColorScheme(Form1, ColorSchemes.Light)
           SetColorScheme(Me, ColorSchemes.Light)

       End If
   End Sub
End Class

الرد }}}
تم الشكر بواسطة: ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 81 48,095 10-02-24, 11:26 AM
آخر رد: محمد العموري
  جعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية العتيق 0 179 27-01-24, 08:08 PM
آخر رد: العتيق
  [مثال] تشغيل البرنامج لفترة محددة مع التفعيل Kamil 0 249 07-01-24, 01:43 AM
آخر رد: Kamil
  مثال استيراد اى ملف اكسيل وتصدير البيانات الى ملف اكسيل new_programer 3 3,426 07-12-22, 12:19 PM
آخر رد: hoda299
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 12 8,934 14-10-22, 12:59 AM
آخر رد: spiky
  الاتصال بقاعدة بيانات SQL بدون تنصيب البرنامج كامل ملهمـ 0 1,335 23-09-22, 12:28 AM
آخر رد: ملهمـ
  مثال على عمل qr code و قرائة ال qr code من ملف صورة او من الشاشة mohamed haroon 6 6,487 02-09-22, 01:48 AM
آخر رد: Mahmoud41
  مثال إضافة وأزالة البرنامج من قائمة بدء التشغيل سيد درويش 0 807 26-08-22, 12:14 PM
آخر رد: سيد درويش
  مثال لعرض الفورم بما يناسب دقة الشاشة سيد درويش 0 1,164 26-08-22, 11:58 AM
آخر رد: سيد درويش
  [مشروع] الاضافة والتعديل والحذف والبحث وقت التشغيل مع TextBox سعود 0 930 25-08-22, 05:12 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم