Private Sub Command2_Click()text2.text=""a = "C:\reg\shit.txt" '你要读取的TXT文件路径Open a For Input As #1Do While Not EOF(1)Input #1, btext2.text=text2.text & bLoopclose #1 ‘打开文本后记得关闭end Sub
将Text1的MultiLine属性设置为TRUE就可以了!