استخدام الريجستري للحفظ والاسترجاع

[عنـ الشوق ـاد]

استخدام الريجستري للحفظ والاسترجاع

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

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

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