VB编程 真彩色转为灰度图像源码.docxVIP

VB编程真彩色转为灰度图像源码 以下代码请贴在一个新建的 Cimage类中 Opt io n Explicit Private TypeBITMAPFILEHEADER bfType As Integer bfSize As Long bfReservedl As Integer bfReserved2 As Integer bfOff Bits As Long End Type Private TypeBITMAPINFOHEADER biWidth As Long biHeight As Long biPla nes As Integer biBitCount As Integer biCompressi on As Long biSizeimage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biCIrUsed As Long biCirimporta nt As Long biSize As Long End Type Private Typebitmap bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer BmBits As Long