| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1088 人关注过本帖
标题:[求助]请教如何使用VB文本框实现记忆功能?
只看楼主 加入收藏
傻瓜911
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-2-1
收藏
 问题点数:0 回复次数:0 
[求助]请教如何使用VB文本框实现记忆功能?
我是一个VB初学者,
我想使两个文本框(一个填写的“用户名”,一个填写“密码”)中输入的内容在程序下次启动时候还保存着,这样必须有一个文件用来保留输入的内容? 但是总是搞不定。我编写的如下:

Private Sub Text2_LostFocus()
Dim strtemp As String
Dim strfilecontents As String
Open "user.txt" For Output As #1
Print #1, Text2.Text
Close #1
Open "user.txt" For Input As #1
While Not EOF(1)
Line Input #1, strtemp
strfilecontents = strfilecontents & strtemp & vbCrLf
Wend
Close #1
End Sub


Private Sub Text3_LostFocus()
Dim strtemp As String
Dim strfilecontents As String
Open "user2.txt" For Output As #2
Print #2, Text3.Text
Close #2
Open "user2.txt" For Input As #2
While Not EOF(1)
Line Input #2, strtemp
strfilecontents = strfilecontents & strtemp & vbCrLf
Wend
Close #2
End Sub

Private Sub Form_Load()
Dim readtext As String
Dim readtext2 As String
Open "user.txt" For Input As #1
While Not EOF(1)
Line Input #1, readtext
Text2.Text = Text2.Text & readtext & vbCrLf
Wend
Close #1

Open "user2.txt" For Input As #2
While Not EOF(1)
Line Input #2, readtext2
Text3.Text = Text3.Text & readtext2 & vbCrLf
Wend
Close #2
End Sub

代码一大堆问题,请大虾不要笑话!

而且修改了文本框里的内容后,文件的内容也不会随着改变,而且我想只使用一个文件来保留(用二进制文件,这样保密性好点) ,又该怎么实现呢?
搜索更多相关主题的帖子: 文本框 记忆 功能 strtemp quot 
2006-03-12 21:03
快速回复:[求助]请教如何使用VB文本框实现记忆功能?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017370 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved