读取二进制代码

来源:百度知道 编辑:UC知道 时间:2024/09/28 11:18:54
这段代码有没错,请大家修改一下
Dim f As Byte
Dim rr As String
rr = Text2.Text
Open "rr" For Binary As #1
While Not EOF(1)
Get #1, , f
Text4.Text = f
Wend
close #1

Byte类型的好像不能直接给字符串赋值吧?应该经过类型的转换。
Text4.Text = f

并且你这样做只会在Text4中快速的把Text2中的文件的每一位显示一遍。最后只显示text2文件中的最后一位。