منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استخدام الريجستري للحفظ والاسترجاع

كاتب الموضوع : AhmedEssawy

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

لحفظ قيمة مربع نص نستخدم الأمر التالي :

كود :

SaveSetting App.Title, "SETTING", "sAVEINTEXT1", Trim(Text1.Text)

ولحفظ عناصر قائمة مثلاً :

كود :

For i = 0 To List1.ListCount - 1

SaveSetting App.Title, "SETTING", "sAVEINTEXT" & i, Trim(List1.List(i))

Next i

SaveSetting App.Title, "SETTING", "list12", Trim(List1.ListCount)

End Sub

لاستعادة قيمة مربع نص :

كود :

Text1.Text = GetSetting(App.Title, "SETTING", "SAVEINTEXT1")

ولاستعادة عناصر قائمة مثلاً :

كود :

list12 = GetSetting(App.Title, "SETTING", "list12")

MsgBox list12

For i = 0 To Val(list12) - 1

List1.AddItem GetSetting(App.Title, "SETTING", "SAVEINTEXT" & i)

Next i

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech