编辑菜单中的打开问题！>?

Question

Open "example.txt" For Input As #1
iline = "" 
Do While Not EOF(1)
 Line Input #2, sline
 iline = iline + sline + vbCr + vbLf
 Loop
 Close #2
 Text1.Text = iline
 Text1的MultiLine设为 True

Answer 1

Private Sub Command1_Click()
    Open "C:\aa.txt" For Binary As #1
        Text1.Text = Input(LOF(1), 1)
    Close #1
End Sub

Answer 2

参照MSDN中 VB对文件的操作
有二进制文件的读写
顺序文件的读写
随机文件的读写
楼上的就是例子

Answer 3

读取：
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)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile