+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : استخدام الريجستري للحفظ والاسترجاع (/showthread.php?tid=5811)
استخدام الريجستري للحفظ والاسترجاع - RaggiTech - 17-10-12
كاتب الموضوع : 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