取色窗口.顶边 ＝ 取鼠标垂直位置 ()
取色窗口.左边 ＝ 取鼠标水平位置 () ' 上两句使得取色窗口跟踪鼠标
标签2.标题 ＝ “X=” ＋ 到文本 (取鼠标水平位置 ())
标签3.标题 ＝ “Y=” ＋ 到文本 (取鼠标垂直位置 ()) ' 上两句显示鼠标位置
图片号 ＝ 载入图片 (快照 (取色窗口句柄, , ))
画板.画图片 (图片号, 0, 0, 11200, 2700, ) ' 这两句获得鼠标位置点的放大图
颜色值 ＝ 画板.取点 (50, 50) ' 取颜色值
蓝色 ＝ 颜色值 ＼ (65280 ＋ 255 ＋ 1)
绿色 ＝ (颜色值 － 蓝色 × (65280 ＋ 255 ＋ 1)) ＼ (255 ＋ 1)
红色 ＝ 颜色值 － 蓝色 × (65280 ＋ 255 ＋ 1) － 绿色 × (255 ＋ 1) ' 这三句用于获得RGB三色的分量值
标签1.标题 ＝ “颜色值=” ＋ 到文本 (颜色值)
标签4.标题 ＝ “R=” ＋ 到文本 (红色)
标签5.标题 ＝ “G=” ＋ 到文本 (绿色)
标签6.标题 ＝ “B=” ＋ 到文本 (蓝色) ' 显示颜色及三原色的分量值
.变量循环首 (48, 122, 1, 键值)
状态 ＝ 取状态 (键值)
.如果真 (状态 ＝ -32767) ' 这些我就不知道是什么意思了，对API没有研究。可能是取键盘状态。
.如果真 (到小写 (字符 (键值)) ＝ “g”) ' 如果按键盘G
置剪辑板文本 (到文本 (颜色值)) ' 复制颜色值到剪切板以供使用
.如果真结束
.如果真结束
.变量循环尾 ()
上一篇 多线程文件传输模块