• 0
mohamed_nor_eldin

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

سؤال

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

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

Module Module1
    Sub ChangeControlColor(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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
Quote
For Each c In f.Controls
	If c.GetType() = ctrl
    	c.ForeColor = ForeColor
        c.BackColor = BackColor
	End If
Next

 

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

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

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

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

تم تعديل بواسطه samir_ibrahim_
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

Untitled.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

(انا استعملت 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

 

تم تعديل بواسطه samir_ibrahim_
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

Module1.ChangeControlColor(Me,GetType(TextBox),Color.Yellow,Color.Blue)
الكود دا المفروض لتغير اى الوان اى تكست بوكس طيب لتغير الوان خلفية الفورم نفسها المفروض يكون الكود ايه لان حولت مع ولم يعمل ؟؟
سؤالى الثانى من فضلك للفهم فى المديول هنا 
 If c.GetType() Is ctrl
	c.ForeColor = ForeColor
  	c.BackColor = BackColor
  End If

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .