|
发表于 2012-7-4 16:20:31
|
显示全部楼层
海南省海口市
- .版本 2
- .程序集 窗口程序集1
- .子程序 _编辑框1_按下某键, 逻辑型
- .参数 键代码, 整数型
- .参数 功能键状态, 整数型
- .局部变量 热键, 文本型
- .如果真 (位与 (功能键状态, #Ctrl键状态) ≠ 0)
- 热键 = 热键 + “Ctrl+”
- .如果真结束
- .如果真 (位与 (功能键状态, #Shift键状态) ≠ 0)
- 热键 = 热键 + “Shift+”
- .如果真结束
- .如果真 (位与 (功能键状态, #Alt键状态) ≠ 0)
- 热键 = 热键 + “Alt+”
- .如果真结束
- .判断开始 (键代码 = #Home键)
- 热键 = 热键 + “Home”
- .判断 (键代码 = #上光标键)
- 热键 = 热键 + “↑”
- .判断 (键代码 = #下光标键)
- ' 本源码来自易语言资源网(www.5A5X.com)
- 热键 = 热键 + “↓”
- .判断 (键代码 = #左光标键)
- 热键 = 热键 + “←”
- .判断 (键代码 = #右光标键)
- 热键 = 热键 + “→”
- .判断 (键代码 = #Pause键)
- 热键 = 热键 + “Pause”
- .判断 (键代码 = #PageUp键)
- 热键 = 热键 + “PageUp”
- .判断 (键代码 = #PageDown键)
- 热键 = 热键 + “PageDown”
- .判断 (键代码 > 64 且 键代码 < 91 或 键代码 > 47 且 键代码 < 58)
- 热键 = 热键 + 字符 (键代码) ' a-z 0-9
- .判断 (键代码 > 111 且 键代码 < 124)
- 热键 = 热键 + “F” + 到文本 (键代码 - 111)
- .默认
- .判断结束
- 编辑框1.内容 = 热键
- 返回 (假)
复制代码 |
|