منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اذا ممكن كود لتغيير خلفية الفورم في الرجيستري (/showthread.php?tid=5420)

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - فاضل الحمود - 08-10-12

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

اذا كان عندي فورم ووضعت فيه عدة خيارات لتغيير لون الخلفية مثلا من ازرق إلى أخضر هل يوجد كود يجعل البرنامج يحتفظ بالخيار الأخير للون
أقصد إذا كان اللون الأساسي للفورم أزرق واخترنا الخيار التالي لتغيير الخلفية إلى أخضر فهل يبقى لون الفورم أخضر حتى بعد إغلاقه ولما نفتحه مرة ثانيه يبقى نفس اللون الأخضر؟

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - AGASHE - 09-10-12

ابحث عن كيفية ربط برنامجك بملف تهيئة
وامتداده هو ini

هذا و الله اعلم

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - ناجي إبراهيم - 09-10-12

السلام عليكم...

في الأكواد التالية ضع بدل My App Name الاسم الذي تريده لبرنامجك في الـ Registry (أي اسم تريده. المهم هو نفسه مع GetSetting و SaveSetting).

1. عند تحميل النافذة اقرأ القيمة من الـ Registry:
كود :
Private Sub Form_Load()
    BackColor = CLng(GetSetting("My App Name", "Interface", "BackColor", CStr(BackColor)))
End Sub

2. عند إغلاق النافذة احفظ اللون الحالي في الـ Registry:
كود :
Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "My App Name", "Interface", "BackColor", CStr(BackColor)
End Sub

نرجو الاستفادة و السلام.

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - فاضل الحمود - 10-10-12

اخي ناجي إبراهيم المحترم اشكرك على جهدك ومساعدتك القيمة ولكني بصراحة لم استطيع تطبيق طريقتك في برنامجي لأنه يلزمني توضيح وشرح أكثر أرجو أن تتكرم وتعدل لي المثال التالي
في المرفقات حيث لدي ثلاث ازرار الأول يغيير لون الفورم والليبل إلى أحمر والآخر إلى أزرق والآخر إلى أخضر وهل نستطيع تعميم إختيار اللون ليشمل الفورم2 وشكرا سلفا

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - ناجي إبراهيم - 10-10-12

السلام عليكم...

المشروع بعد التعديل.

نرجو الاستفادة و السلام.

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - فاضل الحمود - 11-10-12

اخي ناجي إبراهيم المحترم جزاك الله خير الجزاء وزادك علما

هنك ملاحظة أخي ناجي لم يتم حفظ لون خلفية الليبل1 في الرجستري وكيف يمكن حفظ خلفية محتويات الفورم الأخرى مثل الأزرار والفريم وماشابه إن وجدت في الفورم وشكرا لتعاونك

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - ناجي إبراهيم - 11-10-12

السلام عليكم...
لم يتم حفظ لون خلفية الـ Label في الـ Registry لأني وجدت أن الكود المكتوب أصلاً يعمل على جعل لون الـ Label مثل لون الـ Form، و لهذا يكفي حفظ لون خلفية الـ Form.

لحفظ قيم أخرى استعمل نفس الجمل مع إعطاء اسم مختلف لكل مفتاح (key) يمثل قيمة في الـ Registry (و هو البارامتر الثالث، أي بدل كلمة BackColor). مثلاً لحفظ لون و عنوان المكون المسمى Frame2:
كود :
Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "My App Name", "Interface", "Frame2BackColor", CStr(Frame2.BackColor)
    SaveSetting "My App Name", "Interface", "Frame2Caption", Frame2.Caption
End Sub

و لتحميلهما من الـ Registry:
كود :
Private Sub Form_Load()
    Frame2.BackColor = CLng(GetSetting("My App Name", "Interface", "Frame2BackColor", CStr(Frame2.BackColor)))
    Frame2.Caption = GetSetting("My App Name", "Interface", "Frame2Caption", Frame2.Caption)
End Sub

* طبعاً الكلمات مثل Frame2BackColor و Frame2Caption هي أسماء المفاتيح في الـ Registry، و يمكنك استعمال أية أسماء، حتى a و b و c أو x و y و z ... إلخ. غير أني شخصياً أحب استعمال كلمات تدل على المقصود منها حتى و إن كانت كلمات طويلة. كذلك كلمة interface هي اسم القسم (section) الذي تتبعه تلك المفاتيح، و يمكنك أيضاً استعمال أية كلمة تريدها طالما أنك تعرف و تتذكر المقصود منها.

نرجو الاستفادة و السلام.

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - فاضل الحمود - 12-10-12

ماشاء الله عليك يا أخ ناجي إبراهيم حفظك الله ورعاك ارجو ان يتسع صدرك لكثرت اسئلتي لأني كلما عملت بتعليماتك تظهر لي أمور أخرى أعجز عن حلها
وهنا لدي سؤال إذا تكرمت في حال قمت بتغيير ألوان اللأزرار كيف يتم حفظها بطريقتك بصراحة عجزت عن ذلك ارجو التعديل على المرفق اذا ممكن

اذا ممكن كود لتغيير خلفية الفورم في الرجيستري - فاضل الحمود - 12-10-12

انا اقصد من السؤال السابق أن يتم حفظ خلفية الفورم بلون وخلفية الأزرار بلون آخر يختلف عن خلفية الفورم وكذلك خلفية الفريم تكون بلون آخر وهكذا أرجو ألا أكون قد أثقلت عليك وشكرا