vb textbox自动显示文件内容
我希望设置一个键,单击后保存文本框内容,下次运行程序时自动显示保存的内容。就像QQ登陆一个账号后下次打开还显示这个账号一样。...
我希望设置一个键,单击后保存文本框内容,下次运行程序时自动显示保存的内容。
就像QQ登陆一个账号后下次打开还显示这个账号一样。 展开
就像QQ登陆一个账号后下次打开还显示这个账号一样。 展开
2个回答
展开全部
'如你只是单纯的要这一个功能的话就在程序的根目录
或者你想要的地址建立一个文本文件,然后在窗体的加载事件里读取即可
'保存,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
或者你想要的地址建立一个文本文件,然后在窗体的加载事件里读取即可
'保存,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吗,谢谢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询