判断某点是否是透明区域

服毒自尽

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
缩放比例	小数型
画面比例	小数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
图片号	整数型

Gdiplus初始化 ()
图片号 ＝ 载入图片 ( #图片1 )
缩放比例 ＝ 图片_取高度 ( #图片1 ) ÷ 画板1.高度  ' 计算图片与画板的比例
画面比例 ＝ 图片_取高度 ( #图片1 ) ÷ 图片_取宽度 ( #图片1 )  ' 计算图片宽度与高度的比例用于等比例画到画板上
画板1.宽度 ＝ 画板1.高度 ÷ 画面比例
标签1.左边 ＝ 画板1.宽度
画板1.画图片 (图片号, 0, 0, 画板1.宽度, 画板1.高度, )
卸载图片 (图片号)

子程序名	返回值类型	公开	备 注
区域是否透明	逻辑型
参数名	类 型	参考	可空	数组	备 注
图片	字节集
容差	整数型
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
位图	GP位图
颜色	字节集

位图.创建自字节集 (图片)
颜色 ＝ 到字节集 (位图.取某点颜色 (x, y))  ' 获取图片某点的RGBA的值
位图.销毁 ()
判断 (颜色 [4] ≥ 0 且 颜色 [4] ≤ 容差)  ' 判断透明度是否在允许的误差范围内
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
_画板1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

判断 (区域是否透明 ( #图片1, 0, 横向位置 × 缩放比例, 纵向位置 × 缩放比例) ＝ 假)
标签1.标题 ＝ “x=” ＋ 到文本 (横向位置) ＋ #换行符 ＋ “y=” ＋ 到文本 (纵向位置) ＋ #换行符 ＋ “不透明”
标签1.标题 ＝ “x=” ＋ 到文本 (横向位置) ＋ #换行符 ＋ “y=” ＋ 到文本 (纵向位置) ＋ #换行符 ＋ “透明”

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

标签2.左边 ＝ (横向位置 － 标签2.宽度) ÷ 2
标签2.顶边 ＝ 纵向位置 － 1
标签3.左边 ＝ 横向位置 － 1
标签3.顶边 ＝ (纵向位置 － 标签3.高度) ÷ 2
写到文件 (取特定目录 (3) ＋ “\1.bmp”, 图片_后台截图 (取窗口句柄 ()))

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 缩放比例, 小数型<br /> .程序集变量 画面比例, 小数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 图片号, 整数型<br /> <br /> Gdiplus初始化 ()<br /> 图片号 ＝ 载入图片 (#图片1)<br /> 缩放比例 ＝ 图片_取高度 (#图片1) ÷ 画板1.高度  ' 计算图片与画板的比例<br /> 画面比例 ＝ 图片_取高度 (#图片1) ÷ 图片_取宽度 (#图片1)  ' 计算图片宽度与高度的比例用于等比例画到画板上<br /> 画板1.宽度 ＝ 画板1.高度 ÷ 画面比例<br /> 标签1.左边 ＝ 画板1.宽度<br /> 画板1.画图片 (图片号, 0, 0, 画板1.宽度, 画板1.高度, )<br /> 卸载图片 (图片号)<br /> <br /> .子程序 区域是否透明, 逻辑型<br /> .参数 图片, 字节集<br /> .参数 容差, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 位图, GP位图<br /> .局部变量 颜色, 字节集<br /> <br /> 位图.创建自字节集 (图片)<br /> 颜色 ＝ 到字节集 (位图.取某点颜色 (x, y))  ' 获取图片某点的RGBA的值<br /> 位图.销毁 ()<br /> .判断开始 (颜色 [4] ≥ 0 且 颜色 [4] ≤ 容差)  ' 判断透明度是否在允许的误差范围内<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 _画板1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始 (区域是否透明 (#图片1, 0, 横向位置 × 缩放比例, 纵向位置 × 缩放比例) ＝ 假)<br />     标签1.标题 ＝ “x=” ＋ 到文本 (横向位置) ＋ #换行符 ＋ “y=” ＋ 到文本 (纵向位置) ＋ #换行符 ＋ “不透明”<br /> .默认<br />     标签1.标题 ＝ “x=” ＋ 到文本 (横向位置) ＋ #换行符 ＋ “y=” ＋ 到文本 (纵向位置) ＋ #换行符 ＋ “透明”<br /> .判断结束<br /> <br /> <br /> .子程序 _画板1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 标签2.左边 ＝ (横向位置 － 标签2.宽度) ÷ 2<br /> 标签2.顶边 ＝ 纵向位置 － 1<br /> 标签3.左边 ＝ 横向位置 － 1<br /> 标签3.顶边 ＝ (纵向位置 － 标签3.高度) ÷ 2<br /> 写到文件 (取特定目录 (3) ＋ “\1.bmp”, 图片_后台截图 (取窗口句柄 ()))

核心

  

子程序名	返回值类型	公开	备 注
区域是否透明	逻辑型
参数名	类 型	参考	可空	数组	备 注
图片	字节集
容差	整数型
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
位图	GP位图
颜色	字节集

位图.创建自字节集 (图片)
颜色 ＝ 到字节集 (位图.取某点颜色 (x, y))  ' 获取图片某点的RGBA的值
位图.销毁 ()
判断 (颜色 [4] ≥ 0 且 颜色 [4] ≤ 容差)  ' 判断透明度是否在允许的误差范围内
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 区域是否透明, 逻辑型<br /> .参数 图片, 字节集<br /> .参数 容差, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 位图, GP位图<br /> .局部变量 颜色, 字节集<br /> <br /> 位图.创建自字节集 (图片)<br /> 颜色 ＝ 到字节集 (位图.取某点颜色 (x, y))  ' 获取图片某点的RGBA的值<br /> 位图.销毁 ()<br /> .判断开始 (颜色 [4] ≥ 0 且 颜色 [4] ≤ 容差)  ' 判断透明度是否在允许的误差范围内<br />     返回 (真)<br /> .默认<br />     返回 (假)

please

感谢分享，支持开源！！！

一指温柔

#在这里快速回复#谢谢楼主提供！！！！

查过

全都是大佬~

豆豆灰常开心

感谢楼主分享！

ZJ3120

66666666666666666666666666666

bianyuan456

已经顶贴，感谢您对论坛的支持！

year1970

感谢分享，学习一下

查过

下个学习一下

豆豆灰常开心

感谢您对论坛的支持！