关于如何将文本文件的内容读入控件中的问题
有一个问题，很乱，想不出头绪，现在提出来，看看大家能指点一二，谢谢
问题是：我有一个文本文件，现在想将文本文件test.txt(长度变化)中的全部内容，显示在一个窗体的控件中，但是，选择什么控件，没有想好，
我的做法是：
使用：
dim a as string # 50
open "e:\test.txt" for input as #1
do while not eof(1)
line input #1 a
?????
loop
close #1
根据我的想法，遇到的问题是：
1、？？？处不知道用什么控件，我试过使用text1.text=a 。 但是，在text1里面只能显示test.txt文件中的最后一行内容，而我要的是全部的。我还试验过print a ,直接打印到屏幕上，但是没有上下翻页划条，看不到屏幕外面的。
2、后来，我想到使用for循环，将每次读出来的a的值，写入到动态数组s(n)中，问题又来了，我如何才能控制在do while中取出一个值，就能写入到s(n)中，do while再取下一个值时，就将写入到s(n+1)中。
我刚刚开始进入这个行业，也许都是一些非常幼稚的问题，不要笑我，我很想努力学习，希望能够得到你的帮助。
问题点数：20、回复次数：5Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-01 09:36:26 得分 10
dim a as string # 50
open "e:\test.txt" for input as #1
do while not eof(1)
line input #1 a
Text1.Text=Text1.Text & a & vbCrlf '?????
loop
close #1
Top
2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-01 09:39:41 得分 10
或者用Get方法，一次性读取：
Dim strTmp As String
Open "e:\test.txt" For Binary As #1
strTmp = Space(LOF(1))
Get #1, 1, strTmp
Close #1
Text1.Text = strTmpTop
3 楼vansoft（Vansoft Workroom）回复于 2006-03-01 09:47:26 得分 0
啊累？同志們！
用RichTextBox控件，直接有打開和保存文件的方法。Top
4 楼shortppsy（小河）回复于 2006-03-01 10:24:59 得分 0
text1.text=text1.text&strtmp&chr(13)Top
5 楼china4269（城市稻草人）回复于 2006-03-01 13:18:10 得分 0
谢谢各位，我看了一下，功能实现了，但是却没有换行
不过，我已经解决问题了，
我用的是listbox控件
i = 0
Open "d:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
List1.AddItem s
Loop
Close #1
还是要谢谢各位了！Top
