如何在VB中读一个文本文件并将内容显示在textbox控件中？

来源：百度知道 编辑：UC知道 时间：2024/07/02 19:46:07
读入一个文本文件并将其内容按每次一行的方式显示在textbox控件中

顺便问一下：要打开的文件的路径可以是相对路径吗？

Dim a(), i, b As Long

Private Sub Command1_Click()
b = b + 1
Text1.Text = Text1.Text & vbCrLf & a(b)
End Sub

Private Sub Form_Load()
Open "F:\vb6.0\播放器.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
ReDim Preserve a(i)
Input #1, a(i)

Loop
Close #1

End Sub