UC知道VB6一个关于读取.TXT文件的问题.谢谢!
来源：百度知道 编辑：UC知道 时间：2024/05/28 10:46:18
可以读几行的.但是对于多行的就 不行了.不知道是什么原因.高手请帮忙指正下!
代码如下.没有报错
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控件里的文字进行关联呢?不知道我说清楚没有?
代码如下.没有报错
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控件里的文字进行关联呢?不知道我说清楚没有?
你只需将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
改一下这句：
Text1.Text = str1
改为
Text1.Text = Text1.Text & str1
另外，记得把Text1的MultiLine属性改成True
=========================
Text1那里有ScrollBars的属性提供选择的