vb 改代码

来源:百度知道 编辑:UC知道 时间:2024/05/26 01:27:29
Option Explicit

Private Sub Form_Load()
Text1 = GetSetting(App.Title, "Settings", "文本", "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "文本", Text1
End Sub
如何改成下次打开显示上次退出前的所有数据,不光是Text1的
如果我还有2窗体和3窗体,是否也可以一起保留下来所有数据,下次我再打开时和我退出程序时的一样(包括2,3窗体)该如何改

你想保存几个窗体的数据 就在对应窗体上加入这2句不就好了~
Private Sub Form_Load()
Text1 = GetSetting(App.Title, "Settings", "文本", "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "文本", Text1
End Sub