这样将文本文件的内容显示在text里？

[liuyi3000]

？？

[射天狼]

Option Explicit

Private Sub Command1_Click()
Dim strTmp As String

Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Text1.Text = strTmp
End Sub

[jary12581]

打开任何数据类型的文件，用二进制都可以办到，打开文本文件，代码如下：
dim filepath
dim st as adodb.stream
set st=new adodb.stream
st.type=text
st.open
Me.CommonDialog1.Filter = "txt文件(*.txt)|*.txt"
Me.CommonDialog1.ShowOpen
filepath = Me.CommonDialog1.FileName
If filepath <> "" Then
stream1.LoadFromFile filepath
me.text1 = stream1.Read
If Err.Number <> 0 Then
MsgBox "successful to save image!"
Else
MsgBox Err.Number & ":" & Err.Description
End If

[viena]

Open "C:\a.txt" For Input As #1
dim strx as string
do until eof(1)
line input #1,strx
Text1.Text = Text1.Text & strx
loop

[viena]

line input去掉了文本文件的原有的回车换行符，如果需要可以在每一行读取的内容后面加上& Chr(13) & Chr(10)

[viena]

最后要加上Close #1关闭文件

line input去掉了文本文件的原有的回车换行符，如果需要可以在每一行读取的内容后面加上& Chr(13) & Chr(10)

[yoki]

Open "C:\aa.txt" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1