|
本帖最后由 q1012789582 于 2016-12-24 08:28 编辑
XY TABLE取指定XY坐标的颜色值 类似Haconl 色彩识别,修改XY坐标,取相对应的颜色值,废话不多说,上源代码!
不知道为什么,不能上传附件,下面是百度网盘地址;
百度网盘下载源代码链接: http://pan.baidu.com/s/1pKZFat1 密码: bnab
优化代码,去掉DLL调用,纯易语言画板操作
.版本 2
.子程序 _按钮1_被单击
.局部变量 RGB, 字节集
.局部变量 颜色值, 整数型
颜色值 = 画板1.取点 (到数值 (X.内容), 到数值 (Y.内容))
RGB = 到字节集 (颜色值)
R.内容 = 到文本 (RGB [1])
G.内容 = 到文本 (RGB [2])
B.内容 = 到文本 (RGB [3])
编辑框1.内容 = 到文本 (颜色值)
标签1.背景颜色 = 颜色值
核心代码如下:
.版本 2
.子程序 矩形左上角, 整数型, 公开
.局部变量 颜色值, 整数型
.局部变量 红, 整数型
.局部变量 绿, 整数型
.局部变量 蓝, 整数型
颜色值 = 取坐标颜色 (取设备场景 (画板1.取窗口句柄 ()), 55, 60) ' 修改XY坐标,取相对应的颜色值
编辑框1.内容 = 到文本 (颜色值)
标签7.背景颜色 = 颜色值
红 = 取字节集数据 (到字节集 (颜色值), #字节型, 1)
绿 = 取字节集数据 (到字节集 (颜色值), #字节型, 2)
蓝 = 取字节集数据 (到字节集 (颜色值), #字节型, 3)
R.内容 = 到文本 (红)
G.内容 = 到文本 (绿)
B.内容 = 到文本 (蓝)
返回 (颜色值)
DLL如下:
.版本 2
.DLL命令 取坐标颜色, 整数型, "gdi32.dll", "GetPixel"
.参数 设备场景, 整数型
.参数 x坐标, 整数型
.参数 y坐标, 整数型
.DLL命令 取设备场景, 整数型, "user32.dll", "GetDC", , 获取指定窗口的设备场景,出错则为0
.参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0,则要获取整个屏幕的DC
|
评分
-
查看全部评分
|