vb编程-真彩色转为灰度图像源码

《vb编程-真彩色转为灰度图像源码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB编程真彩色转为灰度图像源码'以下代码请贴在一个新建的Cimage类中OptionExplicitPrivateTypeBITMAPFILEHEADERbfTypeAsIntegerbfSizeAsLongbfReserved1AsIntegerbfReserved2AsIntegerbfOffBitsAsLongEndTypePrivateTypeBITMAPINFOHEADERbiSizeAsLongbiWidthAsLongbiHeightAsLongbiPlanesAsIntegerbiBitCountAsIntegerbiCompressionAsL

2、ongbiSizeImageAsLongbiXPelsPerMeterAsLongbiYPelsPerMeterAsLongbiClrUsedAsLongbiClrImportantAsLongEndTypePrivateTypebitmapbmTypeAsLongbmWidthAsLongbmHeightAsLongbmWidthBytesAsLongbmPlanesAsIntegerbmBitsPixelAsIntegerBmBitsAsLongEndTypePrivateTypeRGBQUADBlueAsByteGreenAsByteRedAsByteRe

3、servedAsByteEndTypePrivateTypeBITMAPINFObmiHeaderAsBITMAPINFOHEADERbmiColorsAsRGBQUADEndTypePrivateConstBI_bitfields=3&'带掩码的PrivateConstBI_RGB=0'正常PrivateConstDIB_RGB_COLORS=0'真彩色PrivateConstOBJ_BITMAP=7'位图对象PrivateConstSRCCOPY=&HCC0020'直接拷贝PrivateConstIMAGE_BITMAP=0'LoadImage函数的载入类型

4、，位图PrivateConstLR_LOADFROMFILE=&H10'从文件载入PrivateConstLR_CREATEDIBSECTION=&H2000'如果指定了IMAGE_BITMAP，就返回DIBSection的句柄，而不是位图的句柄PrivateConstSTRETCH_ANDSCANS=1'默认设置。剔除的线段与剩下的线段进行AND运算。这个模式通常应用于采用了白色背景的单色位图PrivateConstSTRETCH_ORSCANS=2'剔除的线段被简单的清除。这个模式通常用于彩色位图PrivateConstSTRETCH_DELETESCANS

5、=3'剔除的线段与剩下的线段进行OR运算。这个模式通常应用于采用了白色背景的单色位图PrivateConstSTRETCH_HALFTONE=4'目标位图上的像素块被设为源位图上大致近似的块。这个模式要明显慢于其他模式'********************************************用于图像方面的相关API函数声明PrivateDeclareFunctionCreateDIBSectionLib"gdi32"(ByValhdcAsLong,lpBitsInfoAsBITMAPINFOHEADER,ByValwUsageAsLong,lpB

6、itsAsLong,ByValhandleAsLong,ByValdwAsLong)AsLongPrivateDeclareFunctionCreateCompatibleDCLib"gdi32"(ByValhdcAsLong)AsLongPrivateDeclareFunctionGetDIBColorTableLib"gdi32"(ByValhdcAsLong,ByValun1AsLong,ByValun2AsLong,lpRGBQuadAsAny)AsLongPrivateDeclareFunctionSetDIBColorTableLib"gdi32"(

7、ByValhdcAsLong,ByValun1AsLong,ByValun2AsLong,pcRGBQuadAsRGBQUAD)AsLong'********************************************用于系统输出的相关API函数声明PrivateDeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLon

8、g,ByValySrcA