22-08-24, 10:09 PM
23-08-24, 01:41 PM
و عليكم السلام
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
29-08-24, 02:33 PM
شكرا جزيلا