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
将Text1的MultiLine属性设置为TRUE就可以了！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024