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


الملفات المرفقة
.rar   ziyad ayyash.rar (الحجم : 34.73 ك ب / التحميلات : 105)
الرد
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] هل يمكن تغير لون راس الفورم برمجياً ؟؟ Microformt 0 7 منذ 4 ساعة مضت
آخر رد: Microformt
Question [vb6.0] كيف يمكن عرض ملف فديو على سطح الفورم وتشغيله ؟؟ Microformt 0 55 21-04-19, 12:32 AM
آخر رد: Microformt
  حفظ المتغيرات على الفورم dr.mostashar 1 177 14-12-18, 07:10 PM
آخر رد: elgokr
  [vb6.0] أدوات تجميل الفورم mero zarad 1 263 16-10-18, 10:22 PM
آخر رد: Amir_Alzubidy
  السلام عليكم ممكن مساعدة يا اخوان كيف بدي اربط الفورم في الاكسل ضروري بارك الله فيكم محمد جبريل 3 308 29-08-18, 08:56 PM
آخر رد: مصمم هاوي
Photo [vb6.0] كيف الغي زر التكبير في الفورم ابوثامر الحامد 4 361 13-08-18, 06:20 AM
آخر رد: elgokr
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 363 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 479 23-03-18, 06:26 AM
آخر رد: Microformt
  اريد كود يحفظ الفورم ك صورة ضروري يا اخوان محمد جبريل 6 517 07-03-18, 11:34 AM
آخر رد: محمد جبريل
Question [vb6.0] كيف استخدم علامة الاستفهام المجوده اعلاء الفورم في برنامجي المرفق؟؟ Microformt 4 482 18-11-17, 03:37 PM
آخر رد: Microformt

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


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