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

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

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

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

هذا المرفق


الملفات المرفقة
.zip   SimpleTheme.zip (الحجم : 131.01 ك ب / التحميلات : 872)
الرد
#2
الله يحفذك اخي
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال عن BackgroundWorker وحفظ معلومات الاتصال . asemshahen5 0 62 11-10-19, 02:06 PM
آخر رد: asemshahen5
  مثال عن الباركود asemshahen5 15 1,760 20-09-19, 01:54 AM
آخر رد: مصمم هاوي
  حماية البرنامج بسريال الفلاش عن طريق ملف اكس امل ال على Dropbox asemshahen5 18 1,053 20-08-19, 11:53 PM
آخر رد: atefkhalf2004
  [مشروع] مثال للعمل مع الـBackgroundWorker سعود 3 294 17-08-19, 06:20 PM
آخر رد: سعود
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 74 19,510 12-08-19, 12:20 PM
آخر رد: عماني939
  مثال لانشاء برنامج تجريبي او جعل البرنامج الخاص بك نسخة تجريبية ahmadpal 4 406 07-08-19, 07:41 PM
آخر رد: ahmadpal
  [مشروع] مثال بسيط بعد فهم الـ oledbexception محاولة كشف خطا كلمة مرور ملف الاكسس سعود 0 115 03-08-19, 07:41 AM
آخر رد: سعود
  مطلوب مثال لتقارير Xtrareport AymanRamadanSaad 0 176 21-07-19, 01:35 AM
آخر رد: AymanRamadanSaad
  مثال عملي على قاعدة بيانات DBlite viv 13 1,050 16-07-19, 02:00 PM
آخر رد: ابراهيم ايبو
  مشروع تغيير لون الاطار الخاص بالفورم ahmadpal 0 263 01-07-19, 06:01 PM
آخر رد: ahmadpal

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


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