标题: (VB)打开一文本文件并放入textBox中 [打印本页]

---

作者: 毛主席    时间: 2007-10-11 09:33     标题: (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

---

欢迎光临 ::电驴基地:: (https://www.cmule.com/)

Powered by Discuz! 6.0.0