首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于Line Input的请问-

2012-04-30 
关于Line Input的请教---急Private Sub Command13_Click()Open d:\123.txt For Input As #1Dim abc As S

关于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


热点排行