[رمضان محمد]

(02-07-22, 03:13 PM)أبو خالد الشكري كتب : تفضل الكود

لكن قبل تنفيذه يجب أن تنشئ 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, "حفظ")

عمل الكود الحمد لله 100%  جزاك الله كل خير

بس يوجد مشكلة في TextBox  كيف اكتب اكثر من سطر فيه

نفترض عندي TextBox وابغى اكتب فيه الثلاثه سطور بنفس الترتيب
بسم الله الرحمن الرحيم
اهلا اخي الكريم
اما بعد مع السلامه