23-08-13, 04:26 PM
السلام عليكم كنت حابب استفسار عن حاجه فكرت فيها و كنت عاوز انفذها واريد مساعدتكم معيز استفساري عن انا مثلا صممت 3 برامج و عملت برنامج رابع لتغير خلفيت ال 3 برامج دول هل يمكن تنفيذ هذه الفكره وكيف يتم ذلك وشكراً
23-08-13, 04:26 PM
23-08-13, 05:58 PM
اما من خلال زر بوتون مثلآ ضع الكود التالي به
او شاهد هذا الموضوع الذي انشأته سابقآ
كود :
Dim clr As New ColorDialog
If clr.ShowDialog = DialogResult.OK Then
Form2.BackColor = clr.Color
Form3.BackColor = clr.Color
End Ifاو شاهد هذا الموضوع الذي انشأته سابقآ
23-08-13, 06:57 PM
مشكور علي الرد بس ازاي اربط بين اكتر من برنامج بالخصيه دي؟
23-08-13, 07:25 PM
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 Sub23-08-13, 07:39 PM
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
شكر هذه المشاركة
معجب بهذه المشاركة
23-08-13, 10:43 PM
فكره حلوه بس انا عيزها الوانز نا هوضحلك اكترز يعني انا عملت البرامج وعملت خصيه لل برامج دي اني اغير الخلفيه بس انا عوزها الوان فا مثلا البرنامج ده هيكون في باليت اختار اللون اللي انا عوزا واما ادوس apply يتعمل علي ال3 برامج اللي عملتهم فا انا بفكر ازاي اربط بين البرامج ال 3 و البرنامج اللي يغير اللون بحيث لما اغير اللون يطبق في البرامج دي يارب تكون الفكره اتوضحت اكتر...
23-08-13, 11:11 PM
في طرق كثيرة جدا
ابسطها
عمل ملف txt يحتوي على اللون الذي تريد تغييره
في البرنامج الرئيسي قم بعمل ملف نصي او اي امتداد اخر
وقم بحفظ كائن اللون في الملف النصي عبر تحويله الى string
وفي البرامج الاخرى التي تريد تغير لونها
قم باسترجاع النص في الملف وتحويله إلى كائن
اعذرني على قلة التوضيح
ابسطها
عمل ملف 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)
اعذرني على قلة التوضيح
23-08-13, 11:22 PM
مفهمتش اي حاجه 
لا ولا يهمك بس ياريت حد يوضحلي او يكون في حل لفكرتي ويكون بالطريقه اللي وضحت بيها لان الاخ الشاكي لله علي ما اعتقد مفهمش قصدي ولا كن مشكور
لا ولا يهمك بس ياريت حد يوضحلي او يكون في حل لفكرتي ويكون بالطريقه اللي وضحت بيها لان الاخ الشاكي لله علي ما اعتقد مفهمش قصدي ولا كن مشكور23-08-13, 11:26 PM
تفضل اخي المثال
23-08-13, 11:42 PM
مشكور اخ 3booody بس معلش انا كنت عاوز افهم حاجه انتا عملت المثال بين ال forms يعني 3 form طيب انا لو حابب اعملهم بين برامج هل في database او اي حاجه تعمل كده؟؟