VB6二值化图像的方法

最新推荐文章于 2024-09-12 14:46:11 发布

原创

最新推荐文章于 2024-09-12 14:46:11 发布 · 621 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#灰度化图片 #Windows API

方法：用windows API

下面是快速灰度化源代码，网上找的，亲测，管用！

Option Explicit

Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function GetDIBits Lib "gdi32" (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
Private Declare Function SetDIBits Lib "gdi32" (ByVal hdc 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
 
Private Type BitMapInfoHeader ''文件信息头——BITMAPINFOHEADER
    biSize As Long
    biWidth As