البرنامج بالمرفقات التعديل بسيط لا تبخلو في المساعده شاكر لكم
الحفظ في لست الرجو من الاخوه التعديل على المرفقات
الكود الموجود في Form_Unload يقوم بحفظ القائمة في ملف باسم list.sav ، والكود في Form_Load يقوم بقراءة محتويات الملف list.sav ويضيفها للقائمة
- Private Sub Form_Load()
- If Dir("list.sav") <> "" Then
- Open "list.sav" For Input As #1
- Dim buffer As String
- Do Until EOF(1)
- Input #1, buffer
- List1.AddItem buffer
- Loop
- Close #1
- End If
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Open "list.sav" For Output As #1
- Dim I As Integer
- For I = 0 To List1.ListCount - 1
- Print #1, List1.List(I)
- Next
- Close #1
- End Sub
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 2 نوفمبر 2008 في 20:00
سبحان الله وبحمده ... سبحان الله العظيم
مشكور عزيزي ولكن المطلوب الحفظ في نفس الناموذج دون اي علاقة باي ملف خاري
اخى الكريم الحائطى
إجابة مشرف المنتدى العزيز المبرمج احمد اجابة سليمة 100 % 100
وذلك لانك لاتستطيع حفظ البيانات الا عن طريق (على سبيل المثال وليس الحصر):
1-عن طريق حفظ محتويات الليست فى ملف خارجى (كما ذكرها المشرف احمد المبرمج).
2- عن طريق حفظ محتويتها فى قاعدة بيانات وهى ايضا تكون جارجة عن البرنامج.
3- عن طريق الحفظ فى الريجيسترى بتاع الجهاز Registry
فلذلك يجب عليك استخدام احد البدائل التالية, لانك هتحفظ فين محتويات الليست داخل النموذج وانت اصلا اول لما تقفل البرنامج كل المعلومات والمتغيرات اللى فى الذاكرة وكانت محجوزة للبرنامج تم مسحها خلاص, لك عليك الاحتفاظ بالبيانات اللى انت عاوزها تكون موجودة عند تشغيل البرنامج مر اخرى بإستخدام احد البدائل المذكورة اعلاه
اخوك المهندس Mooddy
الحائطي كتب:مشكور عزيزي ولكن المطلوب الحفظ في نفس الناموذج دون اي علاقة باي ملف خاري
كيف تريد الحفظ في نفس النموذج ( هل تقصد في نفس الملف exe ؟ ) ..
سبحان الله وبحمده ... سبحان الله العظيم