الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف حفظ التعديلات التي تتم على النموذج

مغلق
بدأه APAS في 8 مارس 2005 · 13 رد · 1,007 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

لدي سوال واتمني الاجابة عليه

كيف استطيع ان احفظ اي تعديل يتم على الفروم وجعلة افتراضي عند تشغيل البرنامج مره اخرى

مثال عملت برنامج لديه خيار تغير لون البرنامج فعند اختيارة لون فانه سوف يتغير لكن عندما يتم تشغيل البرنامج من جديد فانه يعود الى لونه الطبيعي

وانا اريد ان اجعل عند تشغيل البرنامج ان يكون الون الذي تم اختيارة من المستخدم وليس الون الطبيعي

وجزاكم الله خير

#2

السلام عليكم ورحمة الله وبركاته,

يمكنك فعل ذلك إما بحفظ تلك التعديلات على ملف خارجي كما هو الحال في الكثير من البرامج التي تستخدم بعض الملفات بإمتدام INI لحفظ الإعدادات وغيره,أو بحفظ الإعدادت بالرجستري وإستدعائها عند تشغيل البرنامج.

إن كنت تريد مثال , فأرجوا إخباري وسوف أحاول صناعة مثال وإرفاقه هنا.

#3

وعليكم السلام ورحمة الله وبركاتة

تشكر اخي العزيز / مبرمج ريق

على مرورك وردك

اتمنا ان تشرحها حتى استطيع فهم الطريقة

واعذرني عن التثقيل

وجزاك الله خير

تم تعديل هذه المشاركة بواسطة APAS في 9 مارس 2005 في 01:03

#4

خذ هذا المثال يوضح كيفيه عمل حفظ للتغيرات التى تحدث على مربع النص

_______________________.zip

تصميم كافة انواع المواقع البرامج بافضل الاسعار

aaasamy7@hotmail.com

الاسكندريه -مصر

ت:5749981

#5

XX خطأ فني XX

تم تعديل هذه المشاركة بواسطة Visitor_OM في 9 مارس 2005 في 08:11

#6

يا ألف مرحبا وسهلا بالاخ العزيز مبرمج رايق .. نورت المنتدى.

نعم اخي APAS الحل مثل ما اشار إلية اخي الكريم مبرمج رايق، وإيضا يمكنك استخدام الدالة SaveSetting والدالة GetSetting.

بالتوفيق.

تم تعديل هذه المشاركة بواسطة Visitor_OM في 9 مارس 2005 في 08:12

#7

السلام عليكم ورحمة الله وبركاتة

مشكورين جميعا على تفاعلكم

والله هذا بيشجع الشخص على التعلم

اخي العزيز / ssssamy3

المثال يقوم بحفظ ما يحدث في نص ولكن عند اعادة التشغيل فانه يذهب ما تم حفظة

اخي العزيز / Visitor_OM

نعم ماقاله الاخ العزيز المبرمج ريق صحيح صحيح

بس انا كنت محتاج حد يشرح نمبذه عن الطريق حتى استيطع تنفيذها على البرنامج

وجزاكم الله الف خير

#8

طيب أخي ، أنظر للكود أدناه ...

Private Sub Form_Load()
'
 Text1.Text = GetSetting(Me.Name, "Setting", "Data", "")
End Sub
'
Private Sub Form_Unload(Cancel As Integer)
'
 SaveSetting Me.Name, "Setting", "Data", Text1.Text
End Sub

لتجربة الكود قم بإضافة TextBox، ومن ثم قم بتشغيل النموذج لتجربة الكود، واكتب إي نص في ال TextBox وبعدها اغلق النموذج واعد تشغيلة ..

#9

السلام عليكم ورحمة الله وبركاتة

في البداية اواد الاعتذار من الاخ العزيز / ssssamy3

كان مثالة صحيح ويتم الحفظ وبعمل بشك طبيع وجيد ولكن كان الخلل من عندي انا

تاخي العزيز / Visitor_OM جزاك اله خير

نعم المثال يحفظ مافي النص

ولكن اود ان احفظ التعديل التي على الفروم بالكامل اي عند تغير لون البرنامج او اي شي

فهل بالامكان احفظ اي تعديل في الفروم بالكامل

وجزاكم الله الف خير

#10

طريقة جميلة أخ Visitor_OM لحفظ البيانات في الريجيستري.

ويا أخ APAS لتحفظ خصائص الـ Form عليك تحديد كل خاصية تريد أن تحفظها في برنامجك، فعلى سبيل المثال، إذا أردت حفظ لون الخلفية للـ Form بناءً على الطريقة التي ذكرها الأخ Visitor_OM تكتب كما يلي:

SaveSetting Me.Name, "Setting", "Form BackColor", Me.BackColor

وتستعيد بياناتك كما تم الذكر سلفاً عند تحميل الـ Form. ولا تنسى أن تحفظ كل معلومة (خاصية) في Value في الريجيستري خاصة بها ليكون برنامجك احترافياً نوعاً ما، فإذا لا حظت أن أغلب البرامج الأجنبية تكون واضحة في حفظها لبياناتها إن كان في ملفات ini أو في الريجيستري، وهذا لأسباب المراجعة والصيانة على ما أعتقد.

#11

مشكور اخي العزيز MMSs

ولكنها طريقة طويلة ولكن وجب علي ان اعمل بها

فهي طريقة سهلة وجميلة

فجزاكم الله خير

وجعل كل ماتقدمه في ميزان حسانتكم

#12

السلام عليكم

شكرا جزيلا لكل الاخوة

اخي Visitor_OM هل يصلح هذا الكود لكل انواع الوندوز

مثل XP / 2000 / 98

ارجوا الرد مع جزيل الشكر

اخوك ابو بدران

#13

أهلاً بالجميع ..

نعم أخي أبو بدران يصلح لجميع الإصدارات ..

ani.gif
#14

السلام عليكم جميعا

شكرا جزيلا يا اخ عبد الله فتحي على الرد

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…