Text1.text="" Open "文本文档.txt" For Input As #1 Text1.text=Input(LOF(1),1) Close #1把文本文档里的数据一次性的全读出来 然后放到text文本框里 “文本文档.txt”一定要完整路径 我这里只是简单的写了!
我的是保存多个值,包括服务器连接、连接密码、用户名和密码等等。文本框用控件数组txt(),你可以根据情况修改代码。 首先定义了一个Form级别的变量 Dim strCONF(4) as string=====================这一段写在Form_load里面:'读取高级选项信息 Open App.Path & "\MSVB6CONF.INI" For Input As #1 k = 0 Do While Not (EOF(1) Or k > 3) Line Input #1, strCONF(k) Txt(k) = strCONF(k) k = k + 1 Loop Close #1
==================================这一段写在登陆成功后的代码中'如果高级选项已更改,保存记录 Open App.Path & "\MSVB6CONF.INI" For Output As #1 Print #1, Txt(0) Print #1, Txt(1) Print #1, Txt(2) Print #1, Txt(3) Close #1
Open "文本文档.txt" For Input As #1
Text1.text=Input(LOF(1),1)
Close #1把文本文档里的数据一次性的全读出来 然后放到text文本框里
“文本文档.txt”一定要完整路径 我这里只是简单的写了!
首先定义了一个Form级别的变量 Dim strCONF(4) as string=====================这一段写在Form_load里面:'读取高级选项信息
Open App.Path & "\MSVB6CONF.INI" For Input As #1
k = 0
Do While Not (EOF(1) Or k > 3)
Line Input #1, strCONF(k)
Txt(k) = strCONF(k)
k = k + 1
Loop
Close #1
==================================这一段写在登陆成功后的代码中'如果高级选项已更改,保存记录
Open App.Path & "\MSVB6CONF.INI" For Output As #1
Print #1, Txt(0)
Print #1, Txt(1)
Print #1, Txt(2)
Print #1, Txt(3)
Close #1
有关ini文件的操作,网上很多介绍的
随便一搜索就能找到
个人觉得还是ini文件比较合适,设置一些文件属性(隐藏,只读什么的)毕竟txt文档大家都知道,ini文件一般的用户不会去看,也不明白是怎么回事