tiff图像的数据分析（VB版）.pdfVIP

根据代码解释，详细讲解在代码后。

先写一个如下的界面。基中testlong,command5,test.在这里没用。

提取数据按代码如下:

PrivateSub提取数据一Click。

DimfilenameAsSiring，这里用来指定tiff文件的所在路径。绝对路径

filename=C:\DocumentsandSettings\Administrator\MlS\l.tif

OpenfilenameForBinaryAs#1用二进制方法打开这个文件

DimaryCuiilciilOAsBylc用来读取文件的数组

RcDimaryContcnt(3)，定义4个长度，2个为数据格式，2个为版本格式

Get#1,,aryContent()取得第一文件的内容到数组

，二个逗号之间为空，表明从头开始读数据，或者从上一次读完后的地方再读数据，读

到把数组装满后就不再读取，因此本次读了4个字节的数据

DimversionAsString

version=整数格式为：Hhex(aryConte