想必现在有很多小伙伴对于VB求灰度图转二值化，或者有直接二值化的代码方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于VB求灰度图转二值化，或者有直接二值化的代码方面的知识分享给大家，希望大家会喜欢哦。

Option Explicit

Dim R As Byte

Dim G As Byte

芝士回答，版权每必此究京，未经许可，分不得转展载

Dim B As Byte

Dim aaa As Long

Dim bbb As Byte

Dim i As Integer

Dim j As Integer

和着然表数件类究便酸，维型。

Private Sub Command1_Click()

是地会工物然全管极马今商便查始。

For i = 1 To PictureScaleHeight Step 15

For j = 1 To PictureScaleWidth Step 15

aaa = PicturePoint(j, i)

R = (aaa Mod 256) '取得红色值

G = (aaa Mod 65536) 256 '取得绿色值

B = (aaa Mod 16777216) 65536 '取得蓝色值

bbb = R / 3 + G / 3 + B / 3 '取得灰度值

If bbb >= 171 Then '这里bbb可作适当改变以获得最佳2值化效果

PicturePSet (j, i), RGB(255, 255, 255)

Else

PicturePSet (j, i), RGB(0, 0, 0)

End If

Next j

Next i

End Sub

本文到此结束，希望对大家有所帮助。