12-12-19, 05:35 PM
(آخر تعديل لهذه المشاركة : 12-12-19, 05:36 PM {2} بواسطة asemshahen5.)
اختصار جديد للكود :
نفس طريقة الاستخدام .
PHP كود :
Public Sub StyleControls(ParentCtrl As Control)
For Each ctrl As Control In ParentCtrl.Controls
If TypeOf ctrl Is TextBox Then
ctrl.BackColor = Color.Black
ctrl.ForeColor = Color.White
ElseIf TypeOf ctrl Is Button Then
ctrl.BackColor = Color.Black
ctrl.ForeColor = Color.White
ElseIf TypeOf ctrl Is ComboBox Then
ctrl.BackColor = Color.Black
ctrl.ForeColor = Color.White
ElseIf ctrl.HasChildren = True Then
StyleControls(ctrl)
End If
Next
End Sub
نفس طريقة الاستخدام .
PHP كود :
StyleControls(Me) ''لكل أدوات الفورم
StyleControls(Panel1) ''لأدوات بانل معين فقط
StyleControls(GroupBox1) ''لأدوات قروب بوكس معين فقط
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
