تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام الريجستري للحفظ والاسترجاع
#1
كاتب الموضوع : 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنام مستودعات + مبيعات لمحل مواد بناء بدون استخدام الاكسيس abulayth 4 1,972 05-12-14, 08:52 AM
آخر رد: bakrimoh
  شباب محتاج مساعدة في استخدام (المسافة ثم _ ) بشار الذيب 6 1,130 14-04-13, 12:11 PM
آخر رد: بشار الذيب
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 366 17-10-12, 01:02 AM
آخر رد: RaggiTech
  طريقة استخدام SendKey لتطبيق اوامر التراجع والقص والنسخ واللصق RaggiTech 0 628 17-10-12, 12:44 AM
آخر رد: RaggiTech
  القراءه او الكتابه في الريجستري RaggiTech 0 437 17-10-12, 12:23 AM
آخر رد: RaggiTech
  استخدام المعامل Like في المقارنة RaggiTech 0 474 17-10-12, 12:17 AM
آخر رد: RaggiTech
  تفعيل و تعطيل فتح الريجستري Regedit المبرمج الطموح vb6 0 559 06-10-12, 12:40 PM
آخر رد: المبرمج الطموح vb6

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم