منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
جزاكم الله خير ابي كود يحفظ الي بداخل مربع النص بعد عمل exe للبرنامج
دون مرفقات بحيث اذا شغلت البرنامج في جهاز ثاني اجد داخل المربع اخر شي حفظته
ولكم خالص الشكر وتقدير

مهم الله يجزاكم خير

Private Sub Form_Load()
' الكود فى الفورم
Text1.Text = GetSetting(App.EXEName, "textboxes", "text1", "")
Text2.Text = GetSetting(App.EXEName, "textboxes", "text2", "")

End Sub

Private Sub Form_Unload(Cancel As Integer)
' الحفظ عند الإغلاق
SaveSetting App.EXEName, "textboxes", "text1", Text1.Text

SaveSetting App.EXEName, "textboxes", "text2", Text2.Text

End Sub

الله يجزاك الجنه المثال ممتاز بس لما نقلت البرنامج الى جهاز اخر بعد عمل exe تكون مربعات النص فارغه
المطلوب ان تبقى على اخر حفظ

السلام عليكم

- جرب هذا المثال .

- تحياتي .

VB_Coder

هذا هو المطلوب والله يجزاكم الجنه
تسلم يالغالي

السلام عليكم

- أهلا بك أخي العزيز ، شكرا لك .
- تحياتي .