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

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

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

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

هذا المرفق


الملفات المرفقة
.zip   SimpleTheme.zip (الحجم : 131.01 ك ب / التحميلات : 922)
الرد
#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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 10 1,830 01-02-20, 09:35 PM
آخر رد: egypt 2020
  تفعيل البرنامج بواسطة الانترنت العتيق 7 519 09-01-20, 09:46 PM
آخر رد: atefkhalf2004
  تركيب البرنامج على جهاز واحد فقط @@أبورائد@@ 23 14,694 20-12-19, 04:16 PM
آخر رد: مصمم هاوي
  حماية البرنامج بسريال الفلاش عن طريق ملف اكس امل ال على Dropbox asemshahen5 19 2,314 29-11-19, 10:53 PM
آخر رد: fullas44
  ابسط مثال للتصاريح سعود 44 18,246 25-11-19, 01:06 AM
آخر رد: EMADSSS
  مثال لانشاء برنامج تجريبي او جعل البرنامج الخاص بك نسخة تجريبية ahmadpal 5 1,011 06-11-19, 01:58 PM
آخر رد: nasrey1987
  [VB.NET] مثال على بحث الملفات في نظام الوندوز 3booody 3 374 27-10-19, 02:04 AM
آخر رد: 3booody
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 75 21,253 24-10-19, 03:47 PM
آخر رد: nouribenyahia
  [مشروع] مثال للتعامل مع ملف XML كقاعدة بيانات حريف برمجة 21 3,396 21-10-19, 05:50 PM
آخر رد: solbi
  مثال علي عدم فتح البرنامج مره اخري Emam emam 4 418 17-10-19, 10:49 PM
آخر رد: elgokr

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


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