تم النشر منذ 25 Jun 2016 السلام عليكم شباب هل فى اى طريقه على فجوال 2008 ممكن اعمل مديول اقدر اغير فيه الوان فورم المشروع بالكامل ؟؟ ولا لازم اعدى على كله يدوى و اغير كل الالوان 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 31 Jul 2016 ممكن. هذا مثال 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 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 31 Jul 2016 السلام عليكم اولا انا شاكر جدا اهتمامك بالرد ليا كام سؤال من فضلك اولا الجزء دا بيعمل ايه لانه بيدي ايرور For Each c In f.Controls If c.GetType() = ctrl c.ForeColor = ForeColor c.BackColor = BackColor End If تانى حاجا المفروض الجزء التانى دا بينضاف اى كل فورم طيب ما انت محدد فيه اللون معنى الكلام دا انى لو عايز اغير هلف على كل فورم و اكتب الالوان ؟؟ 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 31 Jul 2016 (معدل) 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_ 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 1 Aug 2016 :) طبعا عندك حق لانى نسيت ارفق الخطأ :) الفكره مش المفروض ان المفروض فى الميدول يكون هنا بيتم اضافة اللون و فى الفورم ننادى عليه لتطبيقه ؟ بالنسبه للايرور فهو 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 1 Aug 2016 (معدل) (انا استعملت 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_ 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 6 Aug 2016 السلام عليكم اخى العزيز مشكور لمتابعتك معى بس للتوضيح من فضلك المفروض لتوضيح الكود Module1.ChangeControlColor(Me,GetType(TextBox),Color.Yellow,Color.Blue) الكود دا المفروض لتغير اى الوان اى تكست بوكس طيب لتغير الوان خلفية الفورم نفسها المفروض يكون الكود ايه لان حولت مع ولم يعمل ؟؟ سؤالى الثانى من فضلك للفهم فى المديول هنا If c.GetType() Is ctrl c.ForeColor = ForeColor c.BackColor = BackColor End If انا مش فاهم المفروض هنا انك بتضيف ايه منها غير اضافة الكنترول نفسه وكما اضفت لو انى عايز اغير كل الوان الفورم للون الازرق مثلا مره واحد دا السؤال بدلا من اضافة سطر اللون فى كل فورم على حدى 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 27 Aug 2016 السلام عليكم ورحمه الله وبركاته يمكن عمل هذا باستخدام الشيفره التاليه: For Each frm As Form In Application.OpenForms frm.BackColor = Color.Blue Next 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
تم النشر منذ
السلام عليكم شباب
هل فى اى طريقه على فجوال 2008 ممكن اعمل مديول اقدر اغير فيه الوان فورم المشروع بالكامل ؟؟ ولا لازم اعدى على كله يدوى و اغير كل الالوان
شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه