module1.bas

根据图像生成数据

Attribute VB_Name = "Module1"
'声明API函数
'Createrectrgn为创建一个由点X1，Y1和X2，Y2描述的矩形区域
'因为窗体是由一个个矩形组成的
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'Combinergn将两个区域组合为一个新区域
'把一个个矩形合为一个新的区域
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
'做一个古怪的窗口必须要用的也是那个程序中最重要的一个函数就是SetWindowRgn
'它的功能就是对指定的窗口进行重画，把这个窗口你选择的部分留下
'其余的部分抹掉。
'参数：hWnd：你所要重画的窗口的句柄，比如你想重画form1
'则应该让此参数为form1.hWnd
'      hRgn：你要保留的区域的句柄，这个句柄是关键，你需要通过别的渠道来获得
'在这里的区域是由Combinergn合成的新区域
'     bRedram：是否要马上重画，一般设为true
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Type Dat '自定义类型
'为了和坐标配合，把变量设置为整数型
sx As Integer '存扫描头次遇到非背景色的X坐标
ex As Integer '存扫描非背景色结束的X坐标
sy As Integer 'Y坐标的开始
ey As Integer 'Y坐标的结束
End Type