版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

>论坛更新日志 (2802)
>考研 (325)
>导师招生 (299)
>虫友互识 (62)
>休闲灌水 (50)
>基金申请 (39)
>博后之家 (26)
>考博 (24)
>文献求助 (23)
>论文投稿 (19)
>论文道贺祈福 (18)
>教师之家 (17)
>硕博家园 (13)
>找工作 (12)
>公派出国 (11)
>生物科学 (6)

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

萤火虫8876

铁杆木虫 (正式写手)

应助: 3 (幼儿园)
贵宾: 0.1
金币: 5790
帖子: 675
在线: 114.2小时
虫号: 560623

[交流] 【求助】VB程序的读写

为了计算方便，最近写了一个程序，本人初学vb，希望给位高手帮忙写一下，不盛感激！

要求
在一个form窗口有几十个text文本框，目的想将这几十个text个文本框的数据存储到一个txt文档，且在需要的时候将这保存在txt文档的数据调用出后输入到这几十个text文本框中。

回复此楼

» 猜你喜欢

292求调剂已经有15人回复
304求调剂已经有5人回复
材料与化工考研调剂已经有17人回复
321求调剂已经有5人回复
329求调剂已经有5人回复
材料求调剂一志愿哈工大324 已经有8人回复
286求调剂已经有7人回复
083000学硕274求调剂已经有7人回复
311求调剂已经有8人回复
一志愿C9材料与化工专业总分300求调剂已经有9人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-03-11 22:22:36

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

sjh717142

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 109.4
帖子: 45
在线: 12.8小时
虫号: 1122710

★ ★ ★
萤火虫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

赞一下(1人)