'如你只是单纯的要这一个功能的话就在程序的根目录
或者你想要的地址建立一个文本文件,然后在窗体的加载事件里读取即可
'保存,App.Path & "\你的文本文件名.txt"可以改成你想要的地址,就不用加App.Path &了
Open App.Path & "\你的文本文件名.txt" For Output As #1
Print #1, Text1.Text
Close #1
'读取
Dim strTxt$
Open App.Path & "\你的文本文件名.txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
Text1.Text = Text1.Text & strTxt & vbCrLf
Loop
Close #1
追问运行程序后要自动显示(读取)的,能留个QQ吗,谢谢