帮我看看代码错在哪里?
一个按钮实现将一个文本文件以二进制方式打开,然后放到richtextbox中,
另一个按钮实现将文本框控件中的全部字符信息写回到文本文件中.

第一个功能实现了,但是修改后保存的功能,就是无法成功
[code=VB]
Dim FileNum As Long

Private Sub cmdopen_Click()
    Dim FileNameStr As String
    Dim FileNum As Long
    Dim bitstr() As Byte
    Dim str1 As String
   
    '变量赋值
    FileNameStr = "C:\Documents and Settings\zgh\桌面\xx.txt"
    '文件号采用空闲文件号,不指定
    FileNum = FreeFile
   
    Open FileNameStr For Binary As #FileNum '二进制打开方式
    ReDim bitstr(1 To LOF(FileNum))
    Get #FileNum, , bitstr
    'Close #FileNum

    str1 = StrConv(bitstr(), vbUnicode)
    txt1.Text = str1        '注,txt1是一个richtextbox控件，即富文本框
   
    'Debug.Print StrConv(bitstr(), vbUnicode)
End Sub

Private Sub cmdsave_Click()
    Dim FileNameStr As String

    Dim bitstr() As Byte
    Dim str1 As String
   
    str1 = StrConv(txt1.Text, vbFromUnicode)
   
    Put #FileNum, 0, str1
    'Print #FileNum
   
    Close #FileNum
End Sub

[/code]

我找到本质原因了,就是因为保存时,我多了一行转换的代码:  
 
VB code
str1 = StrConv(txt1.Text, vbFromUnicode)  '这一知去了,就行了.
Put #FileNum, , str1