[nin9e]

السلام عليكم كنت حابب استفسار عن حاجه فكرت فيها و كنت عاوز انفذها واريد مساعدتكم معيز استفساري عن انا مثلا صممت 3 برامج و عملت برنامج رابع لتغير خلفيت ال 3 برامج دول هل يمكن تنفيذ هذه الفكره وكيف يتم ذلك وشكراً

[3booody]

اما من خلال زر بوتون مثلآ ضع الكود التالي به

كود :

Dim clr As New ColorDialog
        If clr.ShowDialog = DialogResult.OK Then
            Form2.BackColor = clr.Color
            Form3.BackColor = clr.Color
        End If

او شاهد هذا الموضوع الذي انشأته سابقآ

[nin9e]

مشكور علي الرد بس ازاي اربط بين اكتر من برنامج بالخصيه دي؟

[MSDOS]

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]

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]

فكره حلوه بس انا عيزها الوانز نا هوضحلك اكترز يعني انا عملت البرامج وعملت خصيه لل برامج دي اني اغير الخلفيه بس انا عوزها الوان فا مثلا البرنامج ده هيكون في باليت اختار اللون اللي انا عوزا واما ادوس apply يتعمل علي ال3 برامج اللي عملتهم فا انا بفكر ازاي اربط بين البرامج ال 3 و البرنامج اللي يغير اللون بحيث لما اغير اللون يطبق في البرامج دي يارب تكون الفكره اتوضحت اكتر...

[الشاكي لله]

في طرق كثيرة جدا

ابسطها
عمل ملف 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]

مفهمتش اي حاجه لا ولا يهمك بس ياريت حد يوضحلي او يكون في حل لفكرتي ويكون بالطريقه اللي وضحت بيها لان الاخ الشاكي لله علي ما اعتقد مفهمش قصدي ولا كن مشكور

[3booody]

تفضل اخي المثال

[nin9e]

مشكور اخ 3booody بس معلش انا كنت عاوز افهم حاجه انتا عملت المثال بين ال forms يعني 3 form طيب انا لو حابب اعملهم بين برامج هل في database او اي حاجه تعمل كده؟؟