|
楼主 |
发表于 2010-2-18 15:35:33
|
显示全部楼层
河北省邯郸市
PS小助手的
[e].版本 2
.支持库 eAPI
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 程_热键标识, 整数型
.子程序 _打开_被选择
.局部变量 图片, 字节集
.局部变量 显示图片, 整数型
通用对话框1.打开 ()
图片 = 读入文件 (通用对话框1.文件名)
图片框1.图片 = 图片
.子程序 __启动窗口_尺寸被改变
图片框1.宽度 = _启动窗口.宽度
图片框1.高度 = _启动窗口.高度
.子程序 _关闭_被选择
_启动窗口.销毁 ()
.子程序 _时钟1_周期事件
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型
取当前鼠标处颜色值 (R, G, B)
处理事件 () ' 不知道有没有用就加上了
标签2.标题 = 取十六进制文本 (取颜色值 (R, G, B))
标签2.背景颜色 = 取颜色值 (R, G, B)
.子程序 _按钮1_被单击
置剪辑板文本 (到文本 (标签2.标题))
.子程序 __启动窗口_创建完毕
程_热键标识 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)
.子程序 __启动窗口_将被销毁
撤销热键 (_启动窗口.取窗口句柄 (), 程_热键标识)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果 (时钟1.时钟周期 = 0) ' 如果没有开始取点 就开始
.如果真 (参数一 = 程_热键标识)
时钟1.时钟周期 = 100
.如果真结束
.否则
.如果真 (参数一 = 程_热键标识) ' 如果开始取点了 就停掉
时钟1.时钟周期 = 0
.如果真结束
.如果结束[/e] |
|