[RaggiTech]

كاتب الموضوع : 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