Question

VB以二进制读取文件

以二进制读取这个 GIF 文件 为什么读出来的 不是二进制数据，，而是乱码呢。。二进制 不是 只有 1 和 0 嘛
这是代码：
Private Sub Command1_Click()
Open "C:\Documents and Settings\Administrator\桌面\aaa\angie.gif" For Binary Access Read Lock Read As #1

End Sub

Private Sub Command2_Click()
Picture1.Cls
a = LOF(1)
aaa = Input(a, #1)
Picture1.Print aaa

End Sub

Private Sub Form_Resize()
Picture1.Height = Form1.Height
Picture1.Width = Form1.Width
End Sub

这是读出的 部分数据

GIF89a  ���唥~xnpe^b
当丹￥yqz悎敪┌ ?<B
枑?&0oi~OJa?<K75A0/5$ &様?(:_[?QNpa]?;TWTu53G! +10;┃絝c廵b?%3,+:|y爧壄?>M亐懙绰ki桪C_@?T卑莚q�n漦j枖摾vv?5M,//B11A00@QQkGG] 

LL_ⅱ全�DDQ 噳藗劼}~筹Jlyz睤EaVWy`a凲Rkⅲ该树墝褣栟悢蹘捸审訳W~亜箽澸敋?'6%&2'%�h�i�f蜷f鲭tKFC? 缲[�B灁>示P来L   wo.�c�dha)蜾w磬{孥呩诿B?)崴T缪W镖[YQ"�`镘d缭d耘h谖层藰舜J挚O勰R一N%!菔d徒h嵌f厣}4-0*笭A�9睛D'"沫G极e腊h世撑臈纹? K@0) l+獞:峺0唖.rb'I?2+eW#bT"ZNWK@7:2瘲=拁3B9+%稙@硾?
 顶f碌刬Y#E:90WJ:1潌8槂A�Q�X疂g�f沤?峺?恤?攦T}qQァ晘lA煆h两硶唃qdL爷jY<q_B串?/"寎g
K>1aRC僽g几礈殬灀塝J=n_R}na墇m]NB拠?**


��� !?
,  �
H杯膻*\劝∶?#J淗雹艐3j苋保菑 C?I菠蓳(S猏刹

以二进制读取这个 GIF 文件 为什么读出来的 不是二进制数据，，而是乱码呢。。二进制 不是 只有 1 和 0 嘛
怎么让 二进制数据 在 恢复成 图片呢。。。输出在 图片框呢。。

望高手不吝赐教。。。俺先谢谢你们了。。。。。

Answer 1

文本文件也是0和1啊，但是你用变量a读出来的不是一个位，如果你能读出来一个位，就是1个bit，而不是一个字节或者多个字节，那么出来的就是0和1了。在你的程序中，变量a成了字符串型，当然不会是0和1。如果将a定义成byte类型，那么通过运算将a的位一个bit一个bit的读出来就可以了

Answer 2

vb支持直接读取图片文件的，不需要用open打开文件了

比如要加载C:\WINDOWS\winnt.bmp图片文件到Picture1图片框中：
Picture1.Picture = LoadPicture("C:\WINDOWS\winnt.bmp")