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

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　’旋转
　　For Y = 1 To tSBmpInfo.bmHeight
　　For x = 1 To tSBmpInfo.bmWidth
　　b = (x - 1) * BytesPixel + 1
　　l = sBits(b, Y) * 0.114 + sBits(b + 1, Y) * 0.587 + sBits(b + 2, Y) * 0.299
　　dBits(b, Y) = l
　　dBits(b + 1, Y) = l
　　dBits(b + 2, Y) = l
　　’l = dBits((x - 1) * BytesPixel + 1, Y) * 0.114 + dBits((x - 1) * BytesPixel + 2, Y) * 0.587 + dBits((x - 1) * BytesPixel + 3, Y) * 0.299
　　’dBits((x - 1) * BytesPixel + 1, Y) = l
　　’dBits((x - 1) * BytesPixel + 2, Y) = l
　　’dBits((x - 1) * BytesPixel + 3, Y) = l
　　Next x
　　Next Y
　　Call SetBitmapBits(hDestBmp, tDBmpInfo.bmWidthBytes * tDBmpInfo.bmHeight, dBits(1, 1))
　　End Function
　　’算法2.2 提高速度约2秒是全国计算机等级考试网，加入收藏方法1的46倍速度参数不一样
　　Public Function TurnPicGray(hSrcBmp As Long) As Boolean
　　Dim x As Long, Y As Long
　　Dim BytesPixel As Long
　　Dim tSBmpInfo As BITMAP
　　Dim sBits() As Byte
　　’获得位图信息
　　Call GetObject(hSrcBmp, Len(tSBmpInfo), tSBmpInfo)
　　’申请空间
　　ReDim sBits(1 To tSBmpInfo.bmWidthBytes, 1 To tSBmpInfo.bmHeight)
　　’获得源图与目标图二进制位
　　Call GetBitmapBits(hSrcBmp, tSBmpInfo.bmWidthBytes * tSBmpInfo.bmHeight, sBits(1, 1))
　　’计算颜色值占用多少字节
　　BytesPixel = tSBmpInfo.bmBitsPixel / 8
　　Dim l As Integer
　　Dim b As Long
　　’旋转
　　For Y = 1 To tSBmpInfo.bmHeight
　　For x = 1 To tSBmpInfo.bmWidth
　　b = (x - 1) * BytesPixel + 1
　　l = sBits(b, Y) * 0.114 + sBits(b + 1, Y) * 0.587 + sBits(b + 2, Y) * 0.299
　　sBits(b, Y) = l
　　sBits(b + 1, Y) = l
　　sBits(b + 2, Y) = l
　　Next x
　　Next Y
　　Call SetBitmapBits(hSrcBmp, tSBmpInfo.bmWidthBytes * tSBmpInfo.bmHeight, sBits(1, 1))
　　End Function
　　’算法
　　Public Sub SetPicGray(Pic As PictureBox)
　　Dim width5 As Long, heigh5 As Long, rgb5 As Long
　　Dim hdc5 As Long, i As Long, j As Long

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。