[Taha Okla]

إقتباس :طريقة الأخ khodor 1985 جميلة و عندما نفذتها نفذت المطلوب و لكن عند إضافة أكثر من نموذج لم تنجح لأن عدد النماذج كبير 106نموذج ياريت اعرف طريقة الحفظ فى عندما يكون هناك أكثر من نموذج و شكرا

شو هو اللي ما نجح معك ؟؟

الطريقة بسيطة جداً ..
ولكن عليك ملاحظة هذا الشيء يعتمد على اسم البرنامج والمكان المخزن فيه، فإذا ما غيرت أ] شيء فإن جميع البيانات التي خزنتها لن تجدها...

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

عليك في الاعدادات أن تنشئ مربعي نص لحفظ البيانات فيهما لتكون البيانات مستقله عن بعضها البعض

مثلاً ننشئ في الاعدادات الأداة F1Text1  لحفظ بيانات مربع النص الأول في النموذج الأول

وننشئ الأداة F2Text1 لحفظ بيانات مربع النص الأول في النموذج الثاني
وننشئ الأداة F2Text2 لحفظ بيانات مربع النص الثاني في النموذج الثاني

وهكذا ..
طريقة الحفظ : ضمن كل مربع نص ضمن حدث التغيير نضع كود الحفظ :
مثلاً : 

كود :

   Private Sub textBox1_TextChanged(sender As Object, e As EventArgs) Handles textBox1.TextChanged
       My.Settings.F1Text1 = textBox1.Text
       My.Settings.Save()
   End Sub

وهكذا مع كل مربع نص ما يناسبه ..



أما طريقة الاستعادة أن تضع في حدث اللود لكل نافذة ما يناسب أدواتها من أكواد 
مثلاُ لمربع النص الأول في النافذة الأولى :

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       textBox1.Text = My.Settings.F1Text1

   End Sub

وفي حدث اللود للنافذة الثانية الكود :

كود :

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       textBox1.Text = My.Settings.F2Text1
       textBox2.Text = My.Settings.F2Text2

   End Sub