大虾请指教，为什么不能一次性的把txt中的内容赋给text

liu0033546 发布于 2013-04-01 14:13， 434 次点击

程序代码：

Private Sub Command1_Click()

Line Input #1, a
Text1.Text = a
End Sub

Private Sub Form_Load()
Open "c:\11.txt" For Input As #1
End Sub

11.txt 中的内容为
62
13
14
16

2 回复

风吹过b2013-04-01 15:09

text1 控件没有累加功能，
所以你要手动一行一行的累加添加。

Private Sub Command1_Click()
Line Input #1, a
Text1.Text = Text1.Text & a & vbcrlf '把新内容放到后面，并且再增加一个回车符
End Sub

Private Sub Form_Load()
Open "c:\11.txt" For Input As #1
End Sub

liu00335462013-04-01 15:25

回复 2楼风吹过b

谢谢