VB中text数据保存

来源：百度知道 编辑：UC知道 时间：2024/05/18 01:18:14
在text1中输入数据，下次启动就不见了，可不可以按下保存（），下次可以显示
主要是我做了一个登录框，想弄一个check是保存密码

'保存内容,代码放在form_unload里面
Open App.Path & "\data" For Output As #1
Print #1, text2.text
Close #1

'读取,放在form_load里面
if len(dir(App.Path & "\data"))>0 then
Dim tLine As String
Open App.Path & "\data" For Input As #1
Line Input #1, tLine
Text1.Text = tLine
Close #1
end if

做个文件，保存是写入到文件，每次运行时打开文件读取数据放到文本框中就可以了。

Private Sub Form_Load()
Text1 = GetSetting("myApp", "MySection", "Text1")
End Sub

Private Sub Text1_Change()
SaveSetting "myApp", "MySection", "Text1", Text1
End Sub