其实感觉是个很简单的问题

想实现的是一个"文本框内显示工程所在路径下的一个TXT文件的内容"...

在线等答案

谢谢各位大大

Open App.Path & "\Demo.Txt" For Input As #1
Dim strLine As String
While Not Eof(1)
Line Input #1,strLine
Text1.Text = Text1.Text & strLine
Wend
Close

用RichTextBox方便

RichTextBox1.LoadFile "d:\Demo.txt"

即可