如何将txt文件中的内容弄到vb中的文本框中(不通过剪贴板)?

Question

strFileName="c:\xxx\xxx.dat"
filenum = FreeFile
If Dir(strFileName) <> "" Then
        Open strFileName For Input As #filenum
        Do Until EOF(filenum)
            Input #filenum, str
        LOOP
        Close #filenum
End Iftxt文本框.text=str

Answer 1

Dim Handle As Integer
   Dim NameOfOpen As String
   NameOfOpen = "readme.txt"
   Handle = FreeFile
   Open NameOfOpen For Binary As #Handle
      Text1.Text = Input$(LOF(Handle), Handle)
   Close #Handle

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

Answer 3

如果要将txt文件中所有内容移到text上,好像行不通!

Answer 4

如果把txt文件弄到rtfbox倒是很简单的
dim filename as string
dim filetype as integerfilename="d:\path\sample.txt"
filetype=1  'txt 格式，或者=0 代表使用rtf格式object.LoadFile filename, filetype
就可以了
rtfbox也是一个基本控件，vb自带的