深入懂得VB中的图像之一：VB中的图像色深及对应的处理方法
深入理解VB中的图像之一：VB中的图像色深及对应的处理方法。
谈起VB中的图像，很多人觉得VB对图像的支持太弱了，实际上，我觉得，比起VC，VB对图像的编程要方便很多。神奇的AutoRedraw,多格式的图像文件支持，AutoSize让你少去不少麻烦等等，而这些在VC中都是需要不少额外的代码的，并且VB内部用底层函数对这些功能的封装，使得其执行效率亦是相当高的。那么，今天，我要给大家用一个简单的反色程序说明如何用VB实现对各种色深的图片的处理，让你对VB信心十足。
------解决方案--------------------
1.读取图像。这个很简单，直接使用LoadPicture（其实就是对OleLoadPicture这个函数的封装），其支持BMP,JPG,GIF,ICO,WMF,EMF格式。这里说明一下，对于由柯达控件生成的BMP，部分GIF和JPEG2000,以及32位的ICO这个函数似乎会产生一些未知的错误。JPG格式加载后，在内存中VB是以24位的DIB格式图像保存的，而GIF则以8位索引色放置于内存。至于BMP格式，则可以按照原始的文件位数加载。我们可以用下面的函数来认证。
Private Function GetBitmapColorDepth(Pic As StdPicture) As Long
Dim Bmp As Bitmap
GetGDIObject Pic.Handle, Len(Bmp), Bmp
GetBitmapColorDepth = Bmp.bmBitsPixel
End Function
2、保存图像。这个也很简单，SavePicture函数，注意，Savepicture函数只能将图像保存为BMP格式，无论你给他的路径参数的后缀是什么（看到有些VB的书上居然说将后缀改为JPG就能保存为JPG格式，真他妈的是傻逼）。并且该函数能保留原始的位深，这对我们来说是个好消息。那么这个函数的实现在我看来也很简单，用VB内部的语言来表达就是：
Put #FileNum, , BmpInfoHeader 'BMP文件头
Put #FileNum, , mBmpInfo '位图信息头
If mBmpInfo.biBitCount <= 8 Then Put #FileNum, , ColorTable '调色板
Put #FileNum, , DibBytes '位图数据
3、图像数据的获得
这个地方就是大家常常说VB慢的罪魁祸首，因为VB的自带了一个point和Pset函数,而这两个函数可以得到和设置图像的颜色，因此，常常会作为初学者的最爱工具，而最终的结果就是让VB落得一个骂名：龟速。
总结一下，在VB中可以用来得到图像数据的常用函数有：Point
------解决方案--------------------
Pset; GetPixel
------解决方案--------------------
SetPixel; GetBitmapBits
------解决方案--------------------
SetBitmapBits; GetDIBits
------解决方案--------------------
SetDIBits ; SafeArray模拟指针等等。抛弃前两组不说，因为他们是一丘之貉。第三组函数因为是DDB函数，是设备相关的，个人认为不是很好，因为我体验过他莫名其妙的失败。最后一组因为其复杂性，不作为向大家推荐的函数。因此，我们重点谈谈GetDIBits。
Private Declare Function GetDIBits Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
谈起GetDIBits，我们重点讲讲参数lpBits，这个参数表示存储图像数据的缓冲区首地址，编程时只需要将一个数组的第一个元素赋值给他就可以了， 而如何确定这个数组的大小是值得商榷的。我们知道，对于不同的位深每个像素所占用的字节数是不同的，既然VB保留了被加载的图像的位深，那么我们在对图像进行后续处理的时候就应该按照这个位深来给图像数据缓冲区分配内存。不过，也许大家在实际的应用总并没有这样做，而是统一把BITMAPINFO.bmiHeader.biBitCount设置为32或者为24，那么这里其实GetDIBits 帮我们帮图像的原始格式的数据转换为我们所需要的数据了。
好，下面给出一个简单的处理反色的函数。
Option Explicit
Private Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type Bitmap
bmType As Long
谈起VB中的图像，很多人觉得VB对图像的支持太弱了，实际上，我觉得，比起VC，VB对图像的编程要方便很多。神奇的AutoRedraw,多格式的图像文件支持，AutoSize让你少去不少麻烦等等，而这些在VC中都是需要不少额外的代码的，并且VB内部用底层函数对这些功能的封装，使得其执行效率亦是相当高的。那么，今天，我要给大家用一个简单的反色程序说明如何用VB实现对各种色深的图片的处理，让你对VB信心十足。
------解决方案--------------------
1.读取图像。这个很简单，直接使用LoadPicture（其实就是对OleLoadPicture这个函数的封装），其支持BMP,JPG,GIF,ICO,WMF,EMF格式。这里说明一下，对于由柯达控件生成的BMP，部分GIF和JPEG2000,以及32位的ICO这个函数似乎会产生一些未知的错误。JPG格式加载后，在内存中VB是以24位的DIB格式图像保存的，而GIF则以8位索引色放置于内存。至于BMP格式，则可以按照原始的文件位数加载。我们可以用下面的函数来认证。
Private Function GetBitmapColorDepth(Pic As StdPicture) As Long
Dim Bmp As Bitmap
GetGDIObject Pic.Handle, Len(Bmp), Bmp
GetBitmapColorDepth = Bmp.bmBitsPixel
End Function
2、保存图像。这个也很简单，SavePicture函数，注意，Savepicture函数只能将图像保存为BMP格式，无论你给他的路径参数的后缀是什么（看到有些VB的书上居然说将后缀改为JPG就能保存为JPG格式，真他妈的是傻逼）。并且该函数能保留原始的位深，这对我们来说是个好消息。那么这个函数的实现在我看来也很简单，用VB内部的语言来表达就是：
Put #FileNum, , BmpInfoHeader 'BMP文件头
Put #FileNum, , mBmpInfo '位图信息头
If mBmpInfo.biBitCount <= 8 Then Put #FileNum, , ColorTable '调色板
Put #FileNum, , DibBytes '位图数据
3、图像数据的获得
这个地方就是大家常常说VB慢的罪魁祸首，因为VB的自带了一个point和Pset函数,而这两个函数可以得到和设置图像的颜色，因此，常常会作为初学者的最爱工具，而最终的结果就是让VB落得一个骂名：龟速。
总结一下，在VB中可以用来得到图像数据的常用函数有：Point
------解决方案--------------------
Pset; GetPixel
------解决方案--------------------
SetPixel; GetBitmapBits
------解决方案--------------------
SetBitmapBits; GetDIBits
------解决方案--------------------
SetDIBits ; SafeArray模拟指针等等。抛弃前两组不说，因为他们是一丘之貉。第三组函数因为是DDB函数，是设备相关的，个人认为不是很好，因为我体验过他莫名其妙的失败。最后一组因为其复杂性，不作为向大家推荐的函数。因此，我们重点谈谈GetDIBits。
Private Declare Function GetDIBits Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
谈起GetDIBits，我们重点讲讲参数lpBits，这个参数表示存储图像数据的缓冲区首地址，编程时只需要将一个数组的第一个元素赋值给他就可以了， 而如何确定这个数组的大小是值得商榷的。我们知道，对于不同的位深每个像素所占用的字节数是不同的，既然VB保留了被加载的图像的位深，那么我们在对图像进行后续处理的时候就应该按照这个位深来给图像数据缓冲区分配内存。不过，也许大家在实际的应用总并没有这样做，而是统一把BITMAPINFO.bmiHeader.biBitCount设置为32或者为24，那么这里其实GetDIBits 帮我们帮图像的原始格式的数据转换为我们所需要的数据了。
好，下面给出一个简单的处理反色的函数。
Option Explicit
Private Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type Bitmap
bmType As Long