Question

VB6一个关于读取.TXT文件的问题.谢谢!

可以读几行的.但是对于多行的就 不行了.不知道是什么原因.高手请帮忙指正下!
代码如下.没有报错

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim str1 As String
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, str1
Text1.Text = str1
Loop

Close #1

End Sub
如果我要是在TEXT框上添加一个VSCROLLbar的控件呢?怎么和TEXT控件里的文字进行关联呢?不知道我说清楚没有?

Answer 1

改一下这句：
Text1.Text = str1
改为
Text1.Text = Text1.Text & str1

另外，记得把Text1的MultiLine属性改成True

=========================

Text1那里有ScrollBars的属性提供选择的

Answer 2

你只需将Text1的属性ScrollBars设置为3即可，代码如下：

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim str1 As String
Text1 = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, str1
Text1.Text = Text1 & str1 & Chr(13) & Chr(10)
Loop
Close #1
End Sub