[رمضان محمد]

المطلوب :

يوجد 9 من TextBox

وواحد من Button

المطلوب عندما يكتب المستخدم في اي من TextBox ثم النقر على زر Button يتم حفظ المكتوب في 

TextBox حتى بعد اغلاق البرنامج ثم تشغيله من جديد لا يذهب المكتوب في TextBox إلا عندما يكتب من جديد

داخل TextBox  ثم النقر على زر حفظ التغييرات يتم حفظ الكتابة الجديدة اي حفظ التغييرات وهكذا

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

مرحبا أخ رمضان

أنا سويت لك برنامج صغير تجده في المرفقات 

أرجو أن يعجبك . واعطني رأيك .

[رمضان محمد]

لم يفتح التطبيق ممكن وضع كامل الكود هنا ولا تغير اسم الادوات

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

تفضل الكود

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

[رمضان محمد]

(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 وابغى اكتب فيه الثلاثه سطور بنفس الترتيب
بسم الله الرحمن الرحيم
اهلا اخي الكريم
اما بعد مع السلامه

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

غير خصائص جميع TextBox التسعة !
بحيث تجعل خاصية Multiline تساوي True



بعد ذلك يمكنك أن تغير حجم TextBox إلى الحجم الذي يناسبك
وذلك بالسحب من المربعات الصغيرة التي على حدود التكست بوكس



كما ينكنك ضبط خصائص حجم الخط
ولون الخط
ولون خلفية النص
وأن تجعله خط سميك 
وأيضا تحته خط 
وأيضا تضبط اسم الخط .... الخ

[رمضان محمد]

عملت التطبيق وعمل ويحفظ المكتوب فيه بس المشكله يوم انقل الملف exe لكمبيوتر ثاني يروح المكتوب فيه لازم اكتب من جديد فيه ايش السبب ؟

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

أظن (والله أعلم) أن البيانات يتم حفظها في الريجستري
ولهذا لن تستطيع نقلها إلى كمبيوتر آخر .

[رمضان محمد]

(03-07-22, 06:21 PM)أبو خالد الشكري كتب : أظن (والله أعلم) أن البيانات يتم حفظها في الريجستري
ولهذا لن تستطيع نقلها إلى كمبيوتر آخر .

لا اعتقد هذا السبب والدليل
قبل شوي بنفس الكمبيوتر اللي معمول فيه التطبيق انقل من مجلد إلى  مجلد آخر وتظهر نفس المشكلة

[رمضان محمد]

(03-07-22, 07:37 PM)رمضان محمد كتب :

(03-07-22, 06:21 PM)أبو خالد الشكري كتب : أظن (والله أعلم) أن البيانات يتم حفظها في الريجستري
ولهذا لن تستطيع نقلها إلى كمبيوتر آخر .

لا اعتقد هذا السبب والدليل
قبل شوي بنفس الكمبيوتر اللي معمول فيه التطبيق انقل من مجلد إلى  مجلد آخر وتظهر نفس المشكلة

هل يوجد طريقة أو لازم نحفظ بـــ قاعدة بيانات ؟