با سلام خدمت دوستان
در کد زیر با استفاده از ایونت QueryClose محتویات تکست باکس 1 و 2 بعد از بسته شدن فایل در رجیستری ذخیره میشه و در باز کردن مجدد فایل محتویات در تکست باکسها نمایش داده میشوند:
کد:
'Saves the contents of the TextBox when closing the UserForm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SaveSetting "My parametres", "TextBox1", "Valeu TextBox1", TextBox1.Value
SaveSetting "My parametres", "Textbox2", "Valeu TextBox2", TextBox2.Value
End Sub
'Retrieves the value of the key when opening the UserForm
Private Sub UserForm_Initialize()
TextBox1.Value = GetSetting("My parametres", "TextBox1", "Valeu TextBox1")
TextBox2.Value = GetSetting("My parametres", "TextBox2", "Valeu TextBox2")
End Sub
علاقه مندی ها (Bookmarks)