键盘程序集增加2个子程序识别功能键状态和识别键名

zl2017

.版本 2

.子程序 键盘_取功能键状态, 整数型, 公开, 取键名的功能键状态，1.Ctrl键，2.Shift键，4.Alt键，其他为组合
.参数 键名, 文本型, , 键名,如填:Ctrl键,将返回1，字母不区分大小写
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型

a ＝ 选择 (寻找文本 (键名, “Ctrl键”, , 真) ＝ -1, 0, 1)
b ＝ 选择 (寻找文本 (键名, “Shift键”, , 真) ＝ -1, 0, 2)
c ＝ 选择 (寻找文本 (键名, “Alt键”, , 真) ＝ -1, 0, 4)
返回 (a ＋ b ＋ c)


.子程序 键盘_取功能键名, 文本型, 公开, 取功能键状态对应的键名，1.Ctrl键，2.Shift键，4.Alt键，其他为组合
.参数 功能键状态, 整数型, , 功能键状态,如填1，将返回Ctrl键
.局部变量 键名, 文本型

.判断开始 (功能键状态 ＝ 1)
    键名 ＝ “Ctrl键”
.判断 (功能键状态 ＝ 2)
    键名 ＝ “Shift键”
.判断 (功能键状态 ＝ 3)
    键名 ＝ “Ctrl键” ＋ “Shift键”
.判断 (功能键状态 ＝ 4)
    键名 ＝ “Alt键”
.判断 (功能键状态 ＝ 5)
    键名 ＝ “Ctrl键” ＋ “Alt键”
.判断 (功能键状态 ＝ 6)
    键名 ＝ “Shift键” ＋ “Alt键”
.判断 (功能键状态 ＝ 7)
    键名 ＝ “Ctrl键” ＋ “Shift键” ＋ “Alt键”
.默认
    键名 ＝ “”
.判断结束
返回 (键名)

不浪漫罪名

                 支持               

sqx

5555555555555555555555555555555555555555555555