VB RichTextBox实理自动保存

Question

就是在VB里面做了一个工程，里面做了一个窗体，然后在窗体中做了一个控件RichTextBox，我的想法是，在运行软件后在RichTextBox里面打了一段文字，之后关掉这个工程，在去打开这个工程的时候，我前面打的那段文字还在RichTextBox里面。就是说RichTextBox会在程序中自动保存。或者是自动保存到ACCESS数据库中。。请教高手用VB代码怎么来实现？谢谢！！如果RichTextBox控件不行的话，用TextBox控件也行。

Answer 1

在Form的 Form_QueryUnload 下输入保存代码：
RichTextBox1.SaveFile "D:\1.txt"
这样就会自动保存到 D:\1.txt

在Form的 Form_Load输入下面打开代码：
dim strTmp as string
RichTextBox1.Text=""
open "D:\1.txt" for input as #1

While Not EOF(1)
Line Input #1, strTmp
RichTextBox1.Text = RichTextBox1.Text & strTmp & vbCrLf
Wend
close #1

Answer 2

保存
bvc=RichTextBox

Open App.Path & "\1.txt" For Output As #1
Print #1, bvc
Close #1
打开
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Input #1, strData
RichTextBox = strData
Loop
Close #1

追问

已解决，不过还是要谢谢你。
Private Sub Form_Load()
Text1 = GetSetting(App.Title, "settings", "text")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "settings", "text", Text1.Text
End Sub

追答

这是写在注册表的句子，当有较多字符时出错的，请少用