تغيير القيمة الافتراضية ( تعديل قيمة الخاصية text ) لمربع نص غير منضم على نموذج غير مرتبط

شكراً لكم جميعاً اخواني

لقد وجدت الحل باستخدام ملف نصي

في حدث عند التحميل للنموذج وضعت الكود التالي :

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("j:\test.txt",System.Text.Encoding.UTF32)
txtAnnualPay.Text = fileReader

و في حدث عند النقر لزر تعيين القيمة الجديدة و ضعت الكود التالي :

Dim file1 As System.IO.StreamWriter
file1 = My.Computer.FileSystem.OpenTextFileWriter("j:\test.txt", False)
file1.Close()
file1 = My.Computer.FileSystem.OpenTextFileWriter("j:\test.txt", True)
file1.WriteLine(txtAnnualPay.Text)
file1.Close()

اكرر شكري و تقديري للجميع

بالتوفيق  ::

كما أحب أن  أضيف  يوجد  لديك  عدة  طرق  أخرى للفائده  و هي  : 

1)  تحفظها في  ملفات  الريجستري  القيم  و تستعيدها 

2)  عن  طريق Setting  تبع المشروع (طريقة الضبط اعداد جديد موجود كصوره بالمرفقات)

مثال  :: 

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        TextBox1.Text = My.Settings.SaveValue

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        My.Settings.SaveValue = TextBox1.Text
    End Sub

3) نفس الطريقه السابقه و لكن بدون أكواد  مستخدمه  و شرحها كصوره بالمرفقات

4)  ملف نصي مثل ما قمت بذكره 

5) قاعدة بيانات 

الطريقة  رقم  1  :  عند نقل التطبيق من  جهاز الى  جهاز لابد من انشاء القيمه  الافتراضيه  الأولى  كمفتاح و قيمه في الريجستري و لكن لا تتغير عند نقل البرنامج  في مسارات مختلف على نفس الجهاز

الطرق  (2و 3)  :   في  حالة تغيير  موقع البرنامج  أي  من مسار الى مسار  تعود القيمه الافتراضيه لها 

الطريق  (4،5 ) :  من  أقوى الطرق في حفظ اعدادات  البرنامج عند  نقله  لأجهزة المستخدمين 

و طبعا  على حسب الحاله تستطيع اختيار احدى الطرق 

بارك الله فيك اخي و جزاك خير الجزاء 

جربت الطريقة الثانية ولم لم تنجح معي :

انا اريد ثبيت هذه القيمة في كل مرة اغيرها بمعنى انه اذا غيرت القيمة التي في الايجار السنوي و اغلقت البرنامج ثم فتحته مرة آخرى اشاهد نفس القيمة التي وضعتها و هكذا لأن الايجار ممكن ان يتغير في اي وقت و عندها احتاج الى التعديل على الخاصية text  .. اضافة الى ان البرنامج البسيط هذا عملته لقريب لي و لم اعمل له تحزيم و انما اعطيته فقط ملف التشغيل exe

ارفق لك المف و ارجو منك التكرم بالتعديل عليه و ايجاد الخطأ  .. علماً بأن مربع النص الخاص بالعملية هو txtAnnulaPay

مع جزيل الشكر و التقدير لك اخي على مساعدتك

Parking Calculation.rar

و عليكم  السلام  ،،  يمكنك  الان  التجربه  مع  مراعاة  ان  اقفال  البرنامج  من  أجل  ان  يحفظ  القيمه  من  خلال  الاكس  للخروج  و ليس  StopDebug   من  أجل  ان يتم حفظ القيم (فقط أثناء البرمجه) ،،

أما  عند  تشغيله  كملف  EXE   سيعمل بدون  اي  مشاكل  

Parking Calculation.rar

هذا هو المطلوب بالضبط .. بارك الله فيك

لي طلب لو سمحت لي : ان تشرح التعديل الذي قمت به بالتفصيل حتى اعرف كيف تم ذلك فأنا ما زلت مبتدئ في الفيجوال ستوديو

مع جزيل الشكر و التقدير لك اخي العزيز

استخدمت الطريقة رقم  3  في الطرق التي بالأعلى  ،، و هي أسهل الطرق و لا تحتاج لأي كود برمجي و  الصوره الشرح الخاصه بها في المرفقات بالأعلى  و هي التي فيها مربع شرح اصفر  فقط و الصوره الأخرى لشرح الطريقة رقم 2

بارك الله فيك اخي العزيز و جزاك خير الجزاء .. تمت العملية بنجاج

لك مني كل الشكر و التقدير