读文本文件到文本框(共三种方法) 假定文本框名称 AtTest,文件名为 MYFILE.7A1>mm 方法1:行一行读 txtTest Text Open"MYFILE.TXT" For Input As #1 Do While Not EOF (1) Line Input #1, InputData txtTest Text=txt Test Text+ InputData+vbcrLf Loop Close #1 方法2:一次性读 txtTest text Open MYFILE. TXT For Input As #1 txtTest. Text=Input( LoF(1), 1) Miners close #1 中读文本文件到文本框（共三种方法） 假定文本框名称为txtTest，文件名为MYFILE.TXT。 方法1：一行一行读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+vbCrLf Loop Close #1 方法2：一次性读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1