تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] حفظ التغييرات الواردة على الفورم
#1
السلام عليكم ورحمة الله وبركاته
أريد كود vb6.0 لحفظ التغييرات الواردة على الفورم , بحيث عند اغلاق البرنامج واعادة تشغيله أستعيد كل المعلومات لاخر عملية تغيير. وشكرا.......
Big Grin  Cool
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
بالمرفقات


الملفات المرفقة
.rar   ziyad ayyash.rar (الحجم : 34.73 ك ب / التحميلات : 167)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , ربيع , السيد الغالي , rnmr
#3
كيف يمكن حفظ لست
الرد }}}
تم الشكر بواسطة:
#4
حفظ ما يتغير في الـ Form حتى بعد إغلاقها

Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)
End Sub

'يمكنك تغيير ال text1 بأي شيء آخر image أو Picture أو ... الخ

و لحفظ التغييرات في مربع الاختيار نستخدم الكود التالي

Private Sub Form_Load()
'كتبنا السطر التالي لأنه عند استخدام البرنامج لأول مرة لن يكون هناك قيمة في الريجستر كما حددناها و سوف يظهر لنا خطأ ما لم نكتب هذا السطر
On Error Resume Next
'الدالة التالية تسترجع قيمة معينة من مكان في الريجستر في قسم البرامج و لا يهم الكلمة الأخيرة حيث تستطيع أن تستخدم ما تشاء و لكن بشرط أن يكون نصي
Check1.Value = GetSetting("napcomss", "needhelp", "vb4arab", "anything")

End Sub

Private Sub Form_Unload(Cancel As Integer)
'الدالة التالية تقوم بحفظ قيمة نصية في الريجستر في مكان معين كما هو مبين
SaveSetting "napcomss", "needhelp", "vb4arab", Str(Check1.Value)
'strتقوم هذه الدالة بتحويل قيمة رقمية إلى قيمة نصية

End Sub

ولحفظ عناصر قائمة نستخدم الكود التالي

رمز:
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
ولاستعادة عناصر القائمة
رمز:

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

شرح
================================================

طريقة لاستخدام الدالة ( SaveSetting ) للحفظ في ( الريجيسترى - Registry ) والدالة ( GetSetting ) للقراءة من ( الريجيسترى - Registry ) :
1 - للحفظ :
SaveSetting App.EXEName, "textboxes", "text1", text1.Text

وفى هذه الحالة يتم الحفظ في ( الريجيسترى - Registry ) في المكان المخصص :
( in HKEY_CURRENT_USER|Software|VB and VBA Program Settings|YourAppName )
و يتم تخزين الأربعة أجزاء من الدالة تحت اسم App.EXEName , textboxes أما "text1" يعتبر المفتاح الأساسي في خط البيانات فى ملف ini .
2 - للقراءة :
text1.text = GetSetting (App.EXEName, "textboxes", "text1", "")
وبذلك يمكن تعريف متغير ويحتفظ بقيمته حتى بعد إنهاء البرنامج
الرد }}}
تم الشكر بواسطة: السيد الغالي , rnmr , rnmr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
  حفظ الفورم بجميع مكوناته على شكل PDF hannileo 4 2,522 20-01-22, 05:35 PM
آخر رد: رضوان الجماعي
  كيف اجعل الفورم الفرعي لا يختفي عند الضغط على الفورم الرئيسي مصمم هاوي 7 3,835 26-10-21, 12:51 AM
آخر رد: مصمم هاوي
Question [vb6.0] هل يوجد طريقه في تثبيت خطوط الفورم والتقارير عند تشغل برنامج عند العميل ؟؟ Microformt 0 771 25-09-21, 09:11 AM
آخر رد: Microformt
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 8 4,486 06-03-21, 09:10 PM
آخر رد: أبو عبدالله الحلواني
  رسالة خظأ عند تشغيل الفورم ahmed201 5 2,006 12-01-21, 07:31 PM
آخر رد: ahmed201
Question [vb6.0] هل هناك كود يمكن تكبير الفورم من خلال موشر الفاره بطريقة السحب في حال تم الغاء هذه Microformt 3 1,650 21-05-20, 03:39 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل في الامكن تغير لون شريط عنوان الفورم عن طريق البرمجة ؟؟ Microformt 1 1,591 20-04-20, 12:20 AM
آخر رد: سعود
  [سؤال] عرض تقرير اكتف ريبورت في الفورم ناجح احمد 2 1,727 28-02-20, 04:29 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] هل يمكن تغير لون راس الفورم برمجياً ؟؟ Microformt 0 1,168 27-05-19, 04:10 AM
آخر رد: Microformt

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


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