[ناجي إبراهيم]

السلام عليكم...
لم يتم حفظ لون خلفية الـ 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) الذي تتبعه تلك المفاتيح، و يمكنك أيضاً استعمال أية كلمة تريدها طالما أنك تعرف و تتذكر المقصود منها.

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