热键取按键文本 例程

Ls60

这个例程要追溯到1月份，当时我在研究快捷键，可见：https://bbs.125.la/forum.php?mod=viewthread&tid=14714575&extra=

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_热键1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
键名	文本型
监控功能键	整数型

如果真 (位与 (功能键状态, #Ctrl键状态 ) ≠ 0)
调试输出 (“Ctrl键状态” ＋ 到文本 (位与 (功能键状态, #Ctrl键状态 )))
键名 ＝ 键名 ＋ “Ctrl+”
监控功能键 ＝ 监控功能键 ＋ 1

如果真 (位与 (功能键状态, #Shift键状态 ) ≠ 0)
调试输出 (“Ctrl键状态” ＋ 到文本 (位与 (功能键状态, #Ctrl键状态 )))
键名 ＝ 键名 ＋ “Shift+”
监控功能键 ＝ 监控功能键 ＋ 2

如果真 (位与 (功能键状态, #Alt键状态 ) ≠ 0)
调试输出 (“Ctrl键状态” ＋ 到文本 (位与 (功能键状态, #Ctrl键状态 )))
键名 ＝ 键名 ＋ “Alt+”
监控功能键 ＝ 监控功能键 ＋ 4

调试输出 (键名)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _热键1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 键名, 文本型<br /> .局部变量 监控功能键, 整数型<br /> <br /> .如果真 (位与 (功能键状态, #Ctrl键状态) ≠ 0)<br />     调试输出 (“Ctrl键状态” ＋ 到文本 (位与 (功能键状态, #Ctrl键状态)))<br />     键名 ＝ 键名 ＋ “Ctrl+”<br />     监控功能键 ＝ 监控功能键 ＋ 1<br /> .如果真结束<br /> <br /> .如果真 (位与 (功能键状态, #Shift键状态) ≠ 0)<br />     调试输出 (“Ctrl键状态” ＋ 到文本 (位与 (功能键状态, #Ctrl键状态)))<br />     键名 ＝ 键名 ＋ “Shift+”<br />     监控功能键 ＝ 监控功能键 ＋ 2<br /> .如果真结束<br /> <br /> .如果真 (位与 (功能键状态, #Alt键状态) ≠ 0)<br />     调试输出 (“Ctrl键状态” ＋ 到文本 (位与 (功能键状态, #Ctrl键状态)))<br />     键名 ＝ 键名 ＋ “Alt+”<br />     监控功能键 ＝ 监控功能键 ＋ 4<br /> .如果真结束<br /> <br /> <br /> 调试输出 (键名)

用如上代码取调试热键1（也就是编辑框）的时候出现了下面的问题

功能键状态问题：按照图片里的顺序按功能键，发现不能正常输出我现在按的功能键
目前的情况就是：三个键任意顺序按是能正常输出的，但如果是两个功能键按图中顺序按下，会出现问题（红色标记）

1	2	3	调试结果	我想要结果
Ctrl	Shift	Alt	Ctrl+Shift+Alt+	Ctrl+Shift+Alt+
Ctrl	Alt	Shift	Ctrl+Shift+Alt+	Ctrl+Shift+Alt+
Shift	Ctrl	Alt	Ctrl+Shift+Alt+	Ctrl+Shift+Alt+
Shift	Alt	Ctrl	Ctrl+Shift+Alt+	Ctrl+Shift+Alt+
Alt	Shift	Ctrl	Ctrl+Shift+Alt+	Ctrl+Shift+Alt+
Alt	Ctrl	Shift	Ctrl+Shift+Alt+	Ctrl+Shift+Alt+
Ctrl	Shift		Ctrl+Shift+	Ctrl+Shift+
Ctrl	Alt		Ctrl+Alt+	Ctrl+Alt+
Shift	Ctrl		Shift+	Ctrl+Shift+
Shift	Alt		Shift+Alt	Shift+Alt
Alt	Ctrl		Alt+	Ctrl+Alt+
Alt	Shift		Alt+	Shift+Alt+

如果你调试过，你会发现知识库里面的介绍完全不够
功能键状态

整数型；用于查看在按下本键的同时各功能键是否被同时按下。可以为以下常量值或其和： 1、#Ctrl键状态； 2、#Shift键状态； 4、#Alt键状态。要判断是否同时按下了某个功能键，在此参数的值与想要得知的功能键的状态常量值之间使用“位与”命令进行比较。如果所得的结果不为零，则表示同时按下了此功能键。

后来经过@超级萌新 的指点，我又调试了很久。于是就有了这个例程，用这个做快捷键的输入框会比较方便一些，现在分享给大家

热键取文本.e (8.35 KB, 下载次数: 33)

2022-4-5 23:15 上传

点击文件名下载附件

评论区置顶了一种更好的写法（原来是我知识浅薄了），有兴趣的可以看一下

亲爸爸

目前的情况就是：三个键任意顺序按是能正常输出的，但如果是两个功能键按图中顺序按下，会出现问题（红色标记）

是因为只按功能键的话 功能键状态==0 所以再判断一下 键代码。试试这样

  

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
键名	文本型

如果真 (位与 (功能键状态, #Ctrl键状态 ) ≠ 0 或 键代码 ＝ #Ctrl键 )
键名 ＝ 键名 ＋ “Ctrl+”
如果真 (位与 (功能键状态, #Shift键状态 ) ≠ 0 或 键代码 ＝ #Shift键 )
键名 ＝ 键名 ＋ “Shift+”
如果真 (位与 (功能键状态, #Alt键状态 ) ≠ 0 或 键代码 ＝ #Alt键 )
键名 ＝ 键名 ＋ “Alt+”
如果真 (键代码 ≥ #A键 且 键代码 ≤ #Z键 )
键名 ＝ 键名 ＋ 字符 (键代码)
输出调试文本 (键名)

.版本 2<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 键名, 文本型<br /> <br /> .如果真 (位与 (功能键状态, #Ctrl键状态) ≠ 0 或 键代码 ＝ #Ctrl键)<br />     键名 ＝ 键名 ＋ “Ctrl+”<br /> .如果真结束<br /> .如果真 (位与 (功能键状态, #Shift键状态) ≠ 0 或 键代码 ＝ #Shift键)<br />     键名 ＝ 键名 ＋ “Shift+”<br /> .如果真结束<br /> .如果真 (位与 (功能键状态, #Alt键状态) ≠ 0 或 键代码 ＝ #Alt键)<br />     键名 ＝ 键名 ＋ “Alt+”<br /> .如果真结束<br /> .如果真 (键代码 ≥ #A键 且 键代码 ≤ #Z键)<br />     键名 ＝ 键名 ＋ 字符 (键代码)<br /> .如果真结束<br /> 输出调试文本 (键名)

梦境吖

真不错

叫我尹志平

得到结果.内容 ＝ 到文本 (到长整数 (到数值 (输入内容.内容) × 求次方 (10, 18)))  

这个算法还是有问题 算1以下的数值 没问题  输入10以上的内容  得到的结果马上就变为-9223372036854775808  你可以试一下 另外这种解决办法你有吗

lm88818

支持开源~！感谢分享

deva84

好东西多学习

396384183

很厉害呢

blue2022

共同努力，共同进步

点点丶滴滴

谢谢大佬分享 支持支持

晴天大佬

kantal

共同努力，共同进步

美味萝卜