module1.bas

来自「根据图像生成数据」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
'在这个程序中最重要的函数是GetPixel，因为它的从
'图像中读取是否非背景色的重要函数，根据它的特点
'来扫描图像
'GetPixel是在指定的设备场景中取得一个像素的RGB值
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Type Dat '自定义类型
Sx As Integer '非背景色的开始X坐标
Ex As Integer '非背景色的结束X坐标
Sy As Integer '..........开始Y坐标
Ey As Integer '..........结束Y坐标
End Type