20.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 11 行

 把文件置入到Text或RichText中   
 
dim sFile as string
'Set sFile equal to your filename
dim i as long

i = freefile()

open sFile for input as #i
txtMain.text = input$(i,LOF(i))
close #1