vb怎样把一个txt中所有内容（多行）显示在一个text中？

Question

我的代码(这个代码只显示了txt文件的最后一行内容，而我需要全部的多行文字):
Private Sub Command2_Click()
a = "C:\reg\shit.txt" '你要读取的TXT文件路径
Open a For Input As #1
Do While Not EOF(1)
Input #1, b
Loop
Text2.Text = b
End Sub

Answer 1

Private Sub Command2_Click()
text2.text=""
a = "C:\reg\shit.txt" '你要读取的TXT文件路径
Open a For Input As #1
Do While Not EOF(1)
Input #1, b
text2.text=text2.text & b
Loop
close #1 ‘打开文本后记得关闭
end Sub追问

太好了！！只是都显示在同一行了
能不能让text中的文字也分行显示，和txt文件显示的一样？

追答

你把text2的multiline属性设为true就行了
想要严格按照TXT的格式就把
text2.text=text2.text & b
改为text2.text=text2.text & chr(13)+chr(10) & b

Answer 2

将Text1的MultiLine属性设置为TRUE就可以了！追问

我试了，但是还是不能按照txt的文件内容分行显示

本回答被提问者采纳