Question

VB 退出时保存text的内容下次打开时显示这次保存的内容

VB 退出时保存text的内容下次打开时显示这次保存的内容
能不能把代码写得具体点？不是很懂..APP是什么？
希望有高手写出完整一点的代码.退出的时候最好返回个确认框是否保存.
如果我有很多个文本框该怎么保存？

Answer 1

'你把代码复制到窗体就可以了，只用添加1个文本框

'系统启动时读取注册表里的内容
Private Sub Form_Load()
Text1 = GetSetting(App.Title, "settings", "text", s)
End Sub
'退出时保存内容
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否保存？", vbOKCancel, "提示") = vbOK Then
SaveSetting App.Title, "settings", "text", Text1.Text
End If
End Sub

'或者用读写文件方法保存
'添加3个文本框和1个命令按纽，复制代码就可以了

Private Sub Command1_Click()
If MsgBox("保存吗？", vbOKCancel, "保存") = vbOK Then
Open "test.txt" For Output As #1
Print #1, Text1
Print #1, Text2
Print #1, Text3
'............
Close #1
End If
End Sub

Private Sub Form_Load()
If Dir("test.txt", vbSystem) <> "" Then
Open "test.txt" For Input As #1
Line Input #1, s1
Line Input #1, s2
Line Input #1, s3
Close #1
Text1 = s1
Text2 = s2
Text3 = s3
End If
End Sub

Answer 2

这是精华 而不是像楼上的把它保存乘txt 而且费事

Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "text", 1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
if msgbox ("是否保存文本记录？",vbquestion + vbyesno) = vbyes then :SaveSetting App.Title, "Settings", "text", Text1.Text :end
End Sub

Answer 3

当页面关闭的时候记录一下
打开的时候在重新侄入