易语言取颜色

最初为了一个目标需要自学计算机语言，C,C++,所有主流的语言都简单看了一下，最后选择VB，但是看了不到一个月就放弃了，因为发现还有中文语言“易语言”，经过2年的自学，不在去想那个目标了，因为每一行代码都是那么“美”，以前易语言内置的例程看不懂，就看百度，现在看得懂易语言内置例程才发现她的好，现在应该慢慢跟着易语言内置例程去做，然后仔细看完微机原理，API，C的指针，然后G语言也不错，G语言圣经一定要仔细看完。今天看百度发现非常好且实用的程序一定要记录下来

方法/步骤

1

新建窗口，添加组件，编辑框。标签，时钟，如图，编辑框属性改一下“只读”然后写代码，调试后实现取颜色和坐标，注意事项：时钟周期不能太长，会卡顿，防止编辑框获取焦点，要写窗口获取焦点，把焦点放在窗口上，因为图片要用到十六进制的颜色值，所以加上十六进制转换的函数
2

.版本 2

.程序集窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

时钟1.时钟周期＝ 10

_启动窗口.获取焦点 ()
3

.版本 2

.子程序十六进制转换, 文本型

.参数 R, 整数型

.参数 G, 整数型

.参数 B, 整数型

.局部变量十六进制R, 文本型

.局部变量十六进制G, 文本型

.局部变量十六进制B, 文本型

.判断开始 (取文本长度 (取十六进制文本 (R)) ＝ 1)

十六进制R ＝ “0” ＋取十六进制文本 (R)

.默认

十六进制R ＝取十六进制文本 (R)

.判断结束

.判断开始 (取文本长度 (取十六进制文本 (G)) ＝ 1)

十六进制G ＝ “0” ＋取十六进制文本 (G)

.默认

十六进制G ＝取十六进制文本 (G)

.判断结束

.判断开始 (取文本长度 (取十六进制文本 (B)) ＝ 1)

十六进制B ＝ “0” ＋取十六进制文本 (B)

.默认

十六进制B ＝取十六进制文本 (B)

.判断结束

返回 (十六进制R ＋十六进制G ＋十六进制B)
4

.版本 2

.支持库 eAPI

.子程序 _时钟1_周期事件

.局部变量 R, 整数型

.局部变量 G, 整数型

.局部变量 B, 整数型

编辑框1.内容＝到文本 (取鼠标水平位置 ())

编辑框2.内容＝到文本 (取鼠标垂直位置 ())

取当前鼠标处颜色值 (R, G, B)

编辑框3.内容＝到文本 (R)

编辑框4.内容＝到文本 (G)

编辑框5.内容＝到文本 (B)

_启动窗口.底色＝取颜色值 (R, G, B)

编辑框6.内容＝十六进制转换 (R, G, B)

END