VB图片黑白，纯黑色和纯白色，不要有灰色

2025-04-08 20:57:28

推荐回答（2个）

回答1：

With Picture1
  .AutoRedraw = True
  .ScaleMode = 3
  For i = 0 To .ScaleWidth - 1
    For j = 0 To .ScaleHeight - 1
      p = .Point(i, j)
      r = p Mod 256
      g = p \ 256 Mod 256
      b = p \ 65536
      y = r * 0.299 + g * 0.587 + b * 0.114
      Picture1.PSet (i, j), IIf(y < 127.5, vbBlack, vbWhite)
    Next j
    DoEvents
  Next i
End With

回答2：

把图片复制/粘贴到“画图”软件中，保存为“单色位图”即可。