إقتباس :طريقة الأخ 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