[أبو خالد الشكري]

تفضل الكود

لكن قبل تنفيذه يجب أن تنشئ 9 صناديق TextBox وتنشئ زر واحد Button

هذا تضعه في Form1_Load

كود :

 
       Dim Text1 As String = GetSetting(Application.StartupPath, "Settings", "Text1") : TextBox1.Text = Text1
       Dim Text2 As String = GetSetting(Application.StartupPath, "Settings", "Text2") : TextBox2.Text = Text2
       Dim Text3 As String = GetSetting(Application.StartupPath, "Settings", "Text3") : TextBox3.Text = Text3
       Dim Text4 As String = GetSetting(Application.StartupPath, "Settings", "Text4") : TextBox4.Text = Text4
       Dim Text5 As String = GetSetting(Application.StartupPath, "Settings", "Text5") : TextBox5.Text = Text5
       Dim Text6 As String = GetSetting(Application.StartupPath, "Settings", "Text6") : TextBox6.Text = Text6
       Dim Text7 As String = GetSetting(Application.StartupPath, "Settings", "Text7") : TextBox7.Text = Text7
       Dim Text8 As String = GetSetting(Application.StartupPath, "Settings", "Text8") : TextBox8.Text = Text8
       Dim Text9 As String = GetSetting(Application.StartupPath, "Settings", "Text9") : TextBox9.Text = Text9

   

وهذا تضعه في زر Button

كود :

       SaveSetting(Application.StartupPath, "Settings", "Text1", Trim(TextBox1.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text2", Trim(TextBox2.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text3", Trim(TextBox3.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text4", Trim(TextBox4.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text5", Trim(TextBox5.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text6", Trim(TextBox6.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text7", Trim(TextBox7.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text8", Trim(TextBox8.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text9", Trim(TextBox9.Text))

       MsgBox("تم حفظ البيانات", MsgBoxStyle.Information, "حفظ")