VB.NET+PS二值化生成由0&1构成的图像_photoshop cc 输出二值图像 0和1

笔者最近在做一个自动识图的项目，其中涉及到了图像的二值化过程，于是联想到这类代码可以用在输出自动出图上，废话不多说。

步骤1，设计窗体程序，控件包括textbox、progressbar，如下图

步骤2，设计代码，运行时单击窗体内的空白处即可，未设置button按钮

Public Class Form1
    Private Sub Form1_click(sender As Object, e As EventArgs) Handles MyBase.Click
        Dim dir = System.Environment.CurrentDirectory  '获取程序当前路径
        Dim fig As New Bitmap(dir & "001.jpg")  读取图片001.jpg
        Dim a = fig.Width, b = fig.Height  '获取图片宽、高
        Dim out(a, b)   
        Dim v  缩放比例
        Dim x, j
          '调整缩放比例，当宽度150pixels时自动缩放至宽度为150，textbox文本框和屏幕大小有限制而设置成150，改程序目前为单线程，经测试宽度超过300会极大影响效率
        If a > 150 
1
2
3
4
5
6
7
8
9