Question

VB 读取图片的二进制文件并生成图片

http://zhidao.baidu.com/question/69486606.html
如此知道问答所示代码
'二、程序调用举例：
Private Sub Command1_Click()
'捕捉活动窗口
Dim tmpPicture
Dim hWndActive As Long
Dim r As Long
Dim RectActive As RECT

hWndActive = GetForegroundWindow()
r = GetWindowRect(hWndActive, RectActive)
'截图
Set tmpPicture = CaptureWindow(hWndActive, False, 0, 0, _
RectActive.Right - RectActive.Left, RectActive.Bottom - RectActive.Top)
'保存图片到数组
Dim PBag As New PropertyBag
Dim B() As Byte
PBag.WriteProperty "Picture", tmpPicture
'读取tmpPicture 图片并写到 Pbag 容器中
B = PBag.Contents '获取容器Byte 到 B() 数组中
Set PBag = Nothing
MsgBox "图片已保存到数组B中！"
open "C:\123.txt" for output as #1
print #1,B
close #1
End Sub
如何读取刚才生成的123.txt在D盘根目录生成图片123.bmp（原图片格式是BMP的，存入123.txt是其二进制数据）

Answer 1

你的思路可能有问题，其实操作图片的读取、存储、显示对于VB来说不是什么特别困难的，你可以创建一个Access数据库，非常简单，并且根本不需要存储在*.txt文件，这样难度比较大。

Answer 2

BMP文件头长度是固定值，你找个说明档案看下格式然后手工解析就行

Answer 3

估计不行的

图片文件是有文件头的 存储的格式不一样

简单的方法 可以试试 直接把文件名后缀改了 看有什么反应?