把文件置入到Text或RichText中

• 文件
• sFile
• as
• input
• dim
• for
• #i
• L

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