你好，
  我现在在学习图像处理，目前能用以下方式进行二值化处理，但处理速度太慢
      Dim PicBits()     As Byte, PicInfo       As BITMAP, BytesPerPixel       As Long
          Dim R     As Byte, G       As Byte, B       As Byte, Gray       As Byte, i       As Long
          With picShow
                  .AutoRedraw = True
                  GetObject .Image, Len(PicInfo), PicInfo
                  BytesPerPixel = PicInfo.bmBitsPixel \ 8
                  ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * BytesPerPixel)
                  GetBitmapBits .Image, UBound(PicBits), PicBits(1)
                  For i = 0 To UBound(PicBits) \ BytesPerPixel - 1
                          B = PicBits(i * BytesPerPixel + 1)
                          G = PicBits(i * BytesPerPixel + 2)
                          R = PicBits(i * BytesPerPixel + 3)
                          Gray = R * 0.39 + G * 0.5 + B * 0.11
  '下面这一句是将灰度值换算成二值
                           If Gray > Val(Text1.Text) Then Gray = 255 Else Gray = 0
                          PicBits(i * BytesPerPixel + 1) = Gray
                          PicBits(i * BytesPerPixel + 2) = Gray
                          PicBits(i * BytesPerPixel + 3) = Gray
请问目前VB6比这种方式更快的方法？谢谢

cDIBSection
自己搜索看看把。在我已知vb6代码里是最快的了。

用DIB方法吗？求源码