关于Line Input的请教---急
Private Sub Command13_Click()
Open "d:\123.txt" For Input As #1
Dim abc As String
Do While Not EOF(1)
Line Input #1, abc
Text1 = abc
Loop
Close #1
End Sub
想在TEXT1里面输出 123里面的内容,123.txt文件里面是4行文字。
但是为什么在窗体能显示4行全面的文字,但是在TEXT1里面却无法显示呢?只能显示最后一行,请赐教,谢谢
[解决办法]
Private Sub Command13_Click()
Open "d:\123.txt" For Input As #1
Dim abc As String
Do While Not EOF(1)
Line Input #1, abc
Text1.text = text1.text & abc
Loop
Close #1
End Sub