(VB)打开一文本文件并放入textBox中
打开一文本文件并放入textBox中
Dim FileNumber
Dim Lstr as String
FileNumber = FreeFile ' 取得未使用的档案代码。
Open "TEST" For input As #FileNumber
Do While Not EOF(FileNumber)
Line Input #FileNumber, Lstr
Text1.Text = Text1.Text + Lstr + Chr(13)+Chr(10)
Loop
Close #FileNumber
