منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مساعدة في تغير لون جميع شاشة المشروع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة في تغير لون جميع شاشة المشروع (/showthread.php?tid=50086)

مساعدة في تغير لون جميع شاشة المشروع - MOHAMMED ALZWI - 22-08-24

السلام عليكم 
 ارجو المساعدة في كود لتغير لون جميع شاشة المشروع
ولكم جزيل الشكر

RE: مساعدة في تغير لون جميع شاشة المشروع - Kamil - 23-08-24

و عليكم السلام
PHP كود :
Imports System.Drawing
Imports System.Windows.Forms

Module ThemeManager
    ' دالة لتغيير لون جميع عناصر التحكم
    Private Sub ChangeAllControlsColor(ByVal controls As Control.ControlCollection, ByVal color As Color)
        For Each control As Control In controls
            control.BackColor = color
            If control.HasChildren Then
                ChangeAllControlsColor(control.Controls, color)
            End If
        Next
    End Sub

    ' دالة لتغيير لون النموذج بالكامل
    Public Sub ApplyTheme(ByVal form As Form, ByVal color As Color)
        ChangeAllControlsColor(form.Controls, color)
    End Sub
End Module 


PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' تغيير اللون إلى الأزرق، يمكنك تغيير اللون حسب الحاجة
    ThemeManager.ApplyTheme(Me, Color.Blue)
End Sub 


RE: مساعدة في تغير لون جميع شاشة المشروع - MOHAMMED ALZWI - 29-08-24

شكرا جزيلا