VB显示文本内容

添加如下代码到窗体，然后运行时点下窗体就可以看到效果。

Private Sub Form_Click()
Form1.Cls
Dim Path, Tmp
Path = "d:\test.txt" '这个path改成你的txt文件全路径
Open Path For Input As #1
While Not EOF(1)
Line Input #1, Tmp
Print Tmp
Wend
Close #1
End Sub

print txt.text
如果txt中有换行加车符,窗体中显示也同样要换行的.
呵呵,txt文件啊,照楼上的方法吧,或者在读的时侯 :
mystr=""
While Not EOF(1)
Line Input #1, Tmp
mystr=mystr & temp & vbcrlf
Wend
print mystr

首先必须设定Text1.MultiLine 的值为 True ,使text1接受多行文本,
Open "路径" For Binary As #1 '打开你的文本
text1.text = Input(LOF(1), 1) '读入文本
Close #1 '关闭文本