| 查看: 390 | 回复: 1 | |||
[交流]
【求助】VB程序的读写
|
|
为了计算方便，最近写了一个程序，本人初学vb，希望给位高手帮忙写一下，不盛感激！ 要求 在一个form窗口有几十个text文本框，目的想将这几十个text个文本框的数据存储到一个txt文档，且在需要的时候将这保存在txt文档的数据调用出后输入到这几十个text文本框中。 |
回复此楼» 猜你喜欢
国社科又开始会评了，不知道这次命运如何
已经有12人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有15人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
基金系统什么内容也没有
已经有10人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
★ ★ ★
萤火虫8876(金币+30): 2011-03-15 10:15:29
余泽成(金币+3): 谢谢参与应助，欢迎常来程序语言版！ 2011-03-20 16:36:14
萤火虫8876(金币+30): 2011-03-15 10:15:29
余泽成(金币+3): 谢谢参与应助，欢迎常来程序语言版！ 2011-03-20 16:36:14
|
文本框用文本框控件数组 Private Sub Command1_Click() '写文件 Dim i As Integer Open App.Path & "\a.txt" For Output As #1 For i = 0 To 3 Print #1, Text1(i).Text Next i Close #1 End Sub Private Sub Command2_Click() '读文件 Dim i As Integer, strRead As String Open App.Path & "\a.txt" For Input As #1 For i = 0 To 3 Line Input #1, strRead Text1(i).Text = strRead Next i Close #1 End Sub |
2楼2011-03-14 20:25:44
30