+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن تغير خلفيه المشروع (/showthread.php?tid=10202)
استفسار عن تغير خلفيه المشروع - nin9e - 23-08-13
السلام عليكم كنت حابب استفسار عن حاجه فكرت فيها و كنت عاوز انفذها واريد مساعدتكم معيز استفساري عن انا مثلا صممت 3 برامج و عملت برنامج رابع لتغير خلفيت ال 3 برامج دول هل يمكن تنفيذ هذه الفكره وكيف يتم ذلك وشكراً
استفسار عن تغير خلفيه المشروع - 3booody - 23-08-13
اما من خلال زر بوتون مثلآ ضع الكود التالي به
كود :
Dim clr As New ColorDialog
If clr.ShowDialog = DialogResult.OK Then
Form2.BackColor = clr.Color
Form3.BackColor = clr.Color
End Ifاو شاهد هذا الموضوع الذي انشأته سابقآ
استفسار عن تغير خلفيه المشروع - nin9e - 23-08-13
مشكور علي الرد بس ازاي اربط بين اكتر من برنامج بالخصيه دي؟
استفسار عن تغير خلفيه المشروع - MSDOS - 23-08-13
nin9e كتب :السلام عليكم كنت حابب استفسار عن حاجه فكرت فيها و كنت عاوز انفذها واريد مساعدتكم معيز استفساري عن انا مثلا صممت 3 برامج و عملت برنامج رابع لتغير خلفيت ال 3 برامج دول هل يمكن تنفيذ هذه الفكره وكيف يتم ذلك وشكراً
هذا يعتمد على طريقة تأسيسك لبرامجك
يعني شوف هذا المثال (لو وجد بجوار ملف تشغيل البرنامج صورة باسم bg.jpg يقوم بوضعها خلفية للفورم وتقدر تغيير الصورة بدون ما تحتاج تحديث للبرنامج)
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IO.File.Exists(Application.StartupPath & "\bg.jpg") Then
Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\bg.jpg")
End If
End Subاستفسار عن تغير خلفيه المشروع - 3booody - 23-08-13
nin9e كتب :مشكور علي الرد بس ازاي اربط بين اكتر من برنامج بالخصيه دي؟
تقصد الكود الاول أو الموضوع الثاني؟؟
إقتباس :هذا يعتمد على طريقة تأسيسك لبرامجك
يعني شوف هذا المثال (لو وجد بجوار ملف تشغيل البرنامج صورة باسم bg.jpg يقوم بوضعها خلفية للفورم وتقدر تغيير الصورة بدون ما تحتاج تحديث للبرنامج)
كود:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IO.File.Exists(Application.StartupPath & "\bg.jpg") Then
Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\bg.jpg")
End If
End Sub
شكر هذه المشاركة
معجب بهذه المشاركة
استفسار عن تغير خلفيه المشروع - nin9e - 23-08-13
فكره حلوه بس انا عيزها الوانز نا هوضحلك اكترز يعني انا عملت البرامج وعملت خصيه لل برامج دي اني اغير الخلفيه بس انا عوزها الوان فا مثلا البرنامج ده هيكون في باليت اختار اللون اللي انا عوزا واما ادوس apply يتعمل علي ال3 برامج اللي عملتهم فا انا بفكر ازاي اربط بين البرامج ال 3 و البرنامج اللي يغير اللون بحيث لما اغير اللون يطبق في البرامج دي يارب تكون الفكره اتوضحت اكتر...
استفسار عن تغير خلفيه المشروع - الشاكي لله - 23-08-13
في طرق كثيرة جدا
ابسطها
عمل ملف txt يحتوي على اللون الذي تريد تغييره
في البرنامج الرئيسي قم بعمل ملف نصي او اي امتداد اخر
وقم بحفظ كائن اللون في الملف النصي عبر تحويله الى string
PHP كود :
Dim converter2 As TypeConverter = TypeDescriptor.GetConverter(GetType(Color))
Dim colorString As String = converter2.ConvertToString(Color.Red)
System.IO.File.WriteAllText("text path", colorString)
وفي البرامج الاخرى التي تريد تغير لونها
قم باسترجاع النص في الملف وتحويله إلى كائن
PHP كود :
Dim converter As TypeConverter = TypeDescriptor.GetConverter(GetType(Color))
Me.BackColor = DirectCast(converter.ConvertFromString(System.IO.File.ReadAllText("txt path")), Color)
اعذرني على قلة التوضيح
استفسار عن تغير خلفيه المشروع - nin9e - 23-08-13
مفهمتش اي حاجه
لا ولا يهمك بس ياريت حد يوضحلي او يكون في حل لفكرتي ويكون بالطريقه اللي وضحت بيها لان الاخ الشاكي لله علي ما اعتقد مفهمش قصدي ولا كن مشكور
استفسار عن تغير خلفيه المشروع - 3booody - 23-08-13
تفضل اخي المثال
استفسار عن تغير خلفيه المشروع - nin9e - 23-08-13
مشكور اخ 3booody بس معلش انا كنت عاوز افهم حاجه انتا عملت المثال بين ال forms يعني 3 form طيب انا لو حابب اعملهم بين برامج هل في database او اي حاجه تعمل كده؟؟