开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1634|回复: 0
收起左侧

[其它] 请教大虾们!!!!!

[复制链接]
结帖率:25% (1/4)
发表于 2011-1-22 22:46:13 | 显示全部楼层 |阅读模式   湖南省岳阳市
本人新手自己做的CF准心器
但处于好学想设置个热键,热键我已经设置好了是F1开启
但我想在按一下F1就能够关闭就好了,可到了这里就不知道弄了....
高手指点下........  下面是源码




.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 起始位置X, 整数型
.程序集变量 起始位置Y, 整数型
.程序集变量 加粗a, 逻辑型
.程序集变量 加大, 整数型

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

注册热键 (取窗口句柄 (), 标签2.取窗口句柄 (), 0, #F1键)
_资源皮肤 (#_悬浮镂空)
时钟1.时钟周期 = 0
起始位置X = 393
起始位置Y = 295
加大 = 12

.子程序 准星到屏幕, 逻辑型
.参数 窗口句柄, 整数型
.参数 起始位置X, 整数型
.参数 起始位置Y, 整数型
.参数 内容, 文本型, 可空
.参数 字体名称, 文本型, 可空
.参数 字体大小, 整数型, 可空
.参数 颜色, 整数型, 可空
.参数 加粗, 逻辑型, 可空
.参数 倾斜, 逻辑型, 可空
.参数 下划线, 逻辑型, 可空
.局部变量 场景, 整数型
.局部变量 文字, LOGFONT
.局部变量 变量1, 整数型
.局部变量 变量2, 整数型
.局部变量 变量3, 整数型
.局部变量 变量4, 整数型

场景 = 取设备场景_ (0)
.如果真 (是否为空 (字体名称))
    字体名称 = “宋体”
.如果真结束
.如果真 (是否为空 (字体大小))
    字体大小 = 100
.如果真结束
.如果真 (是否为空 (加粗))
    加粗 = 真
.如果真结束
.如果真 (是否为空 (倾斜))
    倾斜 = 假
.如果真结束
.如果真 (是否为空 (下划线))
    下划线 = 假
.如果真结束
.如果真 (是否为空 (颜色))
    颜色 = #红色
.如果真结束
文字.高度 = 字体大小
.如果 (加粗 = 真)
    文字.加粗 = 900
.否则
    文字.加粗 = 0
.如果结束
.如果 (倾斜 = 真)
    文字.斜体 = 1
.否则
    文字.斜体 = 0
.如果结束
.如果 (下划线 = 真)
    文字.下划线 = 1
.否则
    文字.下划线 = 0
.如果结束
文字.零碎工作组合 = 134
文字.字体名称 = 字体名称
变量1 = 使用指定属性创建逻辑字体_ (文字)
变量2 = 选入设备场景_ (场景, 变量1)
变量3 = SetBkMode_ (场景, 1)
变量4 = 设置前景色_ (场景, 颜色)
TextOut_ (场景, 起始位置X, 起始位置Y, 内容, 取文本长度 (内容))
SetBkMode_ (场景, 变量3)
设置前景色_ (场景, 变量4)
选入设备场景_ (场景, 变量2)
删除对象_ (变量1)
释放设备场景_ (窗口句柄, 场景)
返回 (真)



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


准星到屏幕 (取窗口句柄 (), 起始位置X, 起始位置Y, “ +”, , 加大, #绿色, 加粗a, , )


.子程序 _按钮1_被单击

时钟1.时钟周期 = 1
加粗a = 假

.子程序 _标签2_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

_按钮1_被单击 ()
您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表