自定义快捷键、键值注册热键

易语言 2020-09-01 20:05:27

自定义快捷键、键值注册热键

全部代码写完,这是自定义快捷键的雏形,如果要添加新功能可以自己完善代码

' 因为功能键文本是程序集变量,所以先清空
.如果 (选择框1.选中 = 假 且 选择框2.选中 = 假 且 选择框3.选中 = 假)
信息框 (“必须选择一个功能键。”, #信息图标, )
.否则
.如果 (组合框1.内容 = “”)
信息框 (“必须选择字符键。”, #信息图标, )
.否则
.如果真 (选择框1.选中 = 真)
功能键 = 功能键 + 1
功能键文本 = 功能键文本 + “Ctrl+”
.如果真结束
.如果真 (选择框2.选中 = 真)
功能键 = 功能键 + 2
功能键文本 = 功能键文本 + “Shift+”
.如果真结束
.如果真 (选择框3.选中 = 真)
功能键 = 功能键 + 4
功能键文本 = 功能键文本 + “Alt+”
.如果真结束
字符键 = 取代码 (组合框1.内容, )
功能键文本 = 功能键文本 + 组合框1.内容
.如果真 (是否已注册 = 真)
撤销热键 (_启动窗口.取窗口句柄 (), 注册热键)
.如果真结束
' 如果已注册过热键,就先撤销热键再注册
注册热键 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 功能键, 字符键)
.如果 (注册热键 = 0)
信息框 (“注册热键” + 功能键文本 + “失败。”, #信息图标, )
.否则
是否已注册 = 真
信息框 (“注册热键” + 功能键文本 + “成功。”, #信息图标, )