17-10-12, 12:16 AM
كاتب الموضوع : 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