如何将一个*.TXT的文件的内容显示到TEXT控件中？

Question

用SendMasage函数向*.txt发一条消息，就可以获得*的内容了。

Answer 1

open "a.txt" for binary as #1
text1.text=input(lof(1),#1)
close #1不过txt有64k的限制，文件不能过大，大的话就要特殊处理了~~

Answer 2

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile