VB 6 把彩色图片变成灰阶的方法

最新推荐文章于 2022-09-21 23:00:31 发布

vickyhcq1

最新推荐文章于 2022-09-21 23:00:31 发布

阅读量737

点赞数

文章标签： vb function integer 算法 command timer

本文链接：https://blog.csdn.net/vickyhcq1/article/details/4319652

版权

这篇博客介绍了两种在VB 6中将彩色图片转换为灰阶图片的方法，包括使用GetPixel和SetPixelV的算法以及使用GetBitmapBits和SetBitmapBits的优化算法。通过比较，展示了优化算法在速度上的显著优势，并提供了实际操作的示例代码。

摘要由CSDN通过智能技术生成

第一读取文件加载 picturebox里地球人都会这里就不说了

'下面建立一个模块

Option Explicit '算法二要的API Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long) Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type '算法一要的API Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y