ذخیره تغییرات

[king ag]

سلام دوستان
من مثلا یک فرمی دارم
توش سه تا تکست باکس هست با یک کاماند
حالا میخوام کاربر هر دفعه هر چی تو این سه تا تکست باکس نوشت وقتی رو کاماند کلیک کرد این نوشته ها ذخیره بشه و بعد از بستن برنامه و باز کردن مجدد اون ادامه داشته باشه
حتی بعد خاموش کردن کامپیوتر
ساده ترین و بی دردسر ترین کاری که میشه انجام داد چه کاریه؟
اگه لطف کنید نمونه بزارید ممنون میشم
امیدوارم منظورم رو خوب رسونده باشم
موفق باشید

[pcdownload.bloghaa.com]

Private Sub SaveText(txt As TextBox)
SaveSetting App.Title, "Setting", txt.Name, txt.Text
End Sub
Private Function ReadText(txt As TextBox) As String
ReadText = GetSetting(App.Title, "Setting", txt, "")
End Function
Private Sub Command1_Click()
SaveText Text1
SaveText Text2
SaveText Text3
End Sub
Private Sub Form_Load()
Text1.Text = ReadText(Text1)
Text2.Text = ReadText(Text2)
Text3.Text = ReadText(Text3)
End Sub