الوان فورم المشروع هام جدا من فضلكم

[mohamed_nor_eldin 1]

السلام عليكم شباب

هل فى اى طريقه على فجوال 2008 ممكن اعمل مديول اقدر اغير فيه الوان فورم المشروع بالكامل ؟؟ ولا لازم اعدى على كله يدوى و اغير كل الالوان

[samir_ibrahim_ 49]

ممكن. هذا مثال

Module Module1
    Sub ChangeControlColor(f As Form,ctrl As type, BackColor As Color,ForeColor As Color)
        For Each c In f.Controls
            If c.GetType() = ctrl
                c.ForeColor = ForeColor
                c.BackColor = BackColor
            End If
        Next
    End Sub
End Module

Public Class Form1

Private Sub Form1_Load( sender As Object,  e As EventArgs) Handles MyBase.Load
    Module1.ChangeControlColor(Me,GetType(TextBox),Color.Yellow,Color.Blue)
    Module1.ChangeControlColor(Me,GetType(ComboBox),Color.Aqua,Color.Black)

End Sub
End Class

 

[mohamed_nor_eldin 1]

السلام عليكم اولا انا شاكر جدا اهتمامك بالرد
ليا كام سؤال من فضلك اولا الجزء دا بيعمل ايه لانه بيدي ايرور
 

For Each c In f.Controls
            If c.GetType() = ctrl
                c.ForeColor = ForeColor
                c.BackColor = BackColor
            End If

تانى حاجا المفروض الجزء التانى دا بينضاف اى كل فورم طيب ما انت محدد فيه اللون معنى الكلام دا انى لو عايز اغير هلف على كل فورم و اكتب الالوان ؟؟

 

[samir_ibrahim_ 49]

Quote

For Each c In f.Controls
	If c.GetType() = ctrl
    	c.ForeColor = ForeColor
        c.BackColor = BackColor
	End If
Next

 

هذا الكود يبحث في فورم عن نوع محدد من الكونترول الذي انت تريد تغيير لونه

هذا الكود ثابت لا يتغير بكتب لمرة واحدة

Form_Load انت تنفذ هذا اكود ب

 :) (بعدين لما تقول انو في خطأ قول وين الخطأ وما هو الخطأ (انا ما زلت اعمل على تقوبة الحاسة السادسة عندي ولم اصل لمرحلة معرفة ما بحدث عندك بعد

تم تعديل 31 Jul 2016 بواسطه samir_ibrahim_

[mohamed_nor_eldin 1]

:) طبعا عندك حق لانى نسيت ارفق الخطأ :) 
الفكره مش المفروض ان المفروض فى الميدول يكون هنا بيتم اضافة اللون و فى الفورم ننادى عليه لتطبيقه ؟
بالنسبه للايرور فهو 
 

[samir_ibrahim_ 49]

(انا استعملت 4.0 وانت 3.5) framework version يبدو ان الخطأ في استعمال 

ويبدو ان "=" لا تعمل في 3.5 ولكنها تعمل في 4.0

غير الكود الى : 

For Each c In f.Controls
  If c.GetType() Is ctrl
	c.ForeColor = ForeColor
  	c.BackColor = BackColor
  End If
Next

 

تم تعديل 1 Aug 2016 بواسطه samir_ibrahim_

[mohamed_nor_eldin 1]

السلام عليكم اخى العزيز مشكور لمتابعتك معى بس للتوضيح من فضلك المفروض لتوضيح الكود 

 

Module1.ChangeControlColor(Me,GetType(TextBox),Color.Yellow,Color.Blue)

الكود دا المفروض لتغير اى الوان اى تكست بوكس طيب لتغير الوان خلفية الفورم نفسها المفروض يكون الكود ايه لان حولت مع ولم يعمل ؟؟
سؤالى الثانى من فضلك للفهم فى المديول هنا 

 If c.GetType() Is ctrl
	c.ForeColor = ForeColor
  	c.BackColor = BackColor
  End If

انا مش فاهم المفروض هنا انك بتضيف ايه منها غير اضافة الكنترول نفسه وكما اضفت لو انى عايز اغير كل الوان الفورم للون الازرق مثلا مره واحد دا السؤال بدلا من اضافة سطر اللون فى كل فورم على حدى

[VB Helper 751]

السلام عليكم ورحمه الله وبركاته

يمكن عمل هذا باستخدام الشيفره التاليه:

For Each frm As Form In Application.OpenForms
            frm.BackColor = Color.Blue
Next