求vb打开文本代码。

Text1请先开启多行

private sub command1_click()
dim linestr as string,allStr as string,fn as integer
'linestr:每行文本；allstr:所有文本；fn：空闲文件号

fn = freefile
open "文件路径" for input as #fn
do until eof(fn)
line input #fn,linestr '输入一行
allstr = allstr & linestr & vbcrlf '增加到所有内容中
Loop
close #fn '关闭文件
Text1.Text = allStr '建议全部读完像这样一次性赋值给Text。否则打开比较大文件会非常非常慢。
end sub