Question

如何用VB的OPEN语句打开TXT文件所有内容到文本框

如何用VB的OPEN语句打开TXT文件所有内容到文本框,如果用循环，该怎么用？请把代码发上来，谢谢大家

Answer 1

open "c:\test.txt" for input as #1
while eof(1)=false
input #1,str1
text1.text=text1.text+str1
wend
close #1

Answer 2

Dim FileNumber As Integer
Dim Nextline As String
FileNumber = FreeFile
Open App.Path & IIf(Len(App.Path) > 3, "\name.ini", "name.ini") For Input As FileNumber
Do Until EOF(FileNumber)
Line Input #FileNumber, Nextline
Text1 = Text1 & Nextline & chr(13) & chr(10)

End If
Loop
Close #FileNumber