| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 907 人关注过本帖
标题:VB6中TEXT1TEXT文本框中输入的数据如何保存
只看楼主 加入收藏
ZHAOJINJUN
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2021-5-8
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
VB6中TEXT1TEXT文本框中输入的数据如何保存
VB6中TEXT1TEXT文本框中输入的数据如何保存,下次
打开窗体时,文本框的数据为上次的。
我用以下代码不行
Private Sub Command1_Click()
Open As c:\program files(x86)\microsoft visual studio\VB98 For Output As #shuju
Write #shuju, Text1.Text
Write #shuju, Text2.Text
Close #shuju

End Sub

Private Sub Command2_Click()
Open "c:\program files(x86)\microsoft visual studio\VB98" For Input As #shuju
Dim t1 As Integer, t2 As Integer
Input #shuju, t1
Input #shuju, t2
Text1.Text = t1
Text2.Text = t2
Close #shuju

End Sub
搜索更多相关主题的帖子: 数据 Text 保存 VB6 文本框 
2021-05-08 11:08
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:20 
1、假设保存内容文件为config.ini,内容如下
   用户名
   密码
2、程序开始Call read_config,读取内容
   If Dir(App.Path & "\config.ini") <> "" Then
    Open App.Path & "\config.ini" For Binary As #1
    by = Space(LOF(1))
    Get #1, , by
    temp = Split(by, vbCrLf)
    Text(1).Text = temp(0)
    Text(2).Text = temp(1)
    close#1
   endif
3、 在text1和text2变化后,通过按键或者某个触发write_config,保存内容给你到config.ini
2021-05-11 16:07
快速回复:VB6中TEXT1TEXT文本框中输入的数据如何保存
数据加载中...
 
   



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

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