怎么判断编辑框是否按下了Tab键？

自甴zì恠

怎么判断编辑框是否按下了Tab键？

萧阳天

Tab键代码为9，定义一个全局Hook即可判断，参考代码：

1. .版本 2
   
2. .支持库 const
   
3. 
   
4. .子程序 CallKeyHookProc, 整数型
   
5. .参数 idHook, 整数型
   
6. .参数 wParam, 整数型
   
7. .参数 lParam, 整数型
   
8. .局部变量 lKey, 整数型
   
9. .局部变量 strKeyName, 文本型
   
10. .局部变量 strLen, 整数型
    
11. 
    
12. .如果真 (idHook ＝ #HC_ACTION)  ' 0
    
13.     拷贝内存_ (keyMsg, lParam, 16)
    
14.     .判断开始 (wParam ＝ 位与 (#WM_SYSKEYDOWN, #WM_SYSKEYUP, #WM_KEYDOWN, #WM_KEYUP))  ' 260,261,256,257
    
15.         lKey ＝ 位与 (keyMsg.sKey, 255)
    
16.         lKey ＝ lKey × 65536
    
17.         strKeyName ＝ 取空白文本 (256)
    
18.         .如果 (keyMsg.flag ＝ 0 或 keyMsg.flag ＝ 32 或 keyMsg.flag ＝ 128 或 keyMsg.sKey ＝ 54)
    
19.             strLen ＝ 取键名_ (lKey, strKeyName, 256) ＋ 1
    
20.         .否则
    
21.             strLen ＝ 取键名_ (位或 (lKey, 16777216), strKeyName, 256) ＋ 1
    
22.         .如果结束
    
23.         _启动窗口.编辑框1.内容 ＝ 到文本 (keyMsg.vKey)
    
24.         _启动窗口.编辑框2.加入文本 (取文本左边 (strKeyName, strLen) ＋ #换行符)
    
25.     .默认
    
26. 
    
27.     .判断结束
    
28. 
    
29. .如果真结束
    
30. 返回 (呼叫下一钩子_ (hHook, idHook, wParam, lParam))
    
31. 
    

复制代码

1. .版本 2
   
2. 
   
3. .数据类型 KEYMSGS
   
4.     .成员 vKey, 整数型
   
5.     .成员 sKey, 整数型
   
6.     .成员 flag, 整数型
   
7.     .成员 time, 整数型
   

复制代码

1. .版本 2
   
2. 
   
3. .DLL命令 取键名_, 整数型, "user32", "GetKeyNameTextA"
   
4.     .参数 参数一, 整数型
   
5.     .参数 缓冲区, 文本型, , 缓冲区长度+1
   
6.     .参数 缓冲区长度, 整数型
   
7. 
   
8. .DLL命令 呼叫下一钩子_, 整数型, "user32.dll", "CallNextHookEx", , CallNextHookEx
   
9.     .参数 钩子句柄, 整数型, , hHook
   
10.     .参数 代码值, 整数型, , ncode
    
11.     .参数 附加参数1, 整数型, , wParam
    
12.     .参数 附加参数2, 整数型, 传址, lParam
    
13. 
    
14. .DLL命令 设置系统钩子_, 整数型, "user32.dll", "SetWindowsHookExA", , SetWindowsHookEx
    
15.     .参数 钩子类型, 整数型, , idHook
    
16.     .参数 回调函数地址, 整数型, , lpfn
    
17.     .参数 实例句柄, 整数型, , hmod
    
18.     .参数 线程ID, 整数型, , dwThreadId
    
19. 
    
20. .DLL命令 释放系统钩子_, 整数型, "user32.dll", "UnhookWindowsHookEx", , UnhookWindowsHookEx
    
21.     .参数 钩子句柄, 整数型, , hHook
    
22. 
    
23. .DLL命令 拷贝内存_, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    
24.     .参数 目标数据地址, KEYMSGS, 传址, lpvDest
    
25.     .参数 源数据, 整数型, , lpvSource
    
26.     .参数 尺寸, 整数型, , cbCopy
    
27. 
    
28. .DLL命令 取得窗口信息_, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    
29.     .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    
30.     .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;
    

复制代码

1. .版本 2
   
2. .支持库 spec
   
3. .支持库 const
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. 
   
7. 调试输出 (“萧阳天  微博：http://t.qq.com/xiaoyang2662  2012-9-18”)
   
8. 调试输出 (“新建的API交流群：92757016  欢迎大家一起学习！”)
   
9. ' ---------------------------------------------------------------------
   
10. hHook ＝ 设置系统钩子_ (#WH_KEYBOARD_LL, 到数值 (&CallKeyHookProc), 取得窗口信息_ (取窗口句柄 (), -6), 0)
    
11. 
    
12. .子程序 __启动窗口_将被销毁
    
13. 
    
14. 释放系统钩子_ (hHook)
    
15. 
    
16. .子程序 __启动窗口_鼠标右键被放开, 逻辑型
    
17. .参数 横向位置, 整数型
    
18. .参数 纵向位置, 整数型
    
19. .参数 功能键状态, 整数型
    
20. 
    
21. 释放系统钩子_ (hHook)
    

复制代码

1. .版本 2
   
2. 
   
3. .全局变量 k
   
4. eyMsg, KEYMSGS
   
5. .全局变量 hHook, 整数型

复制代码

源码代码下载地址：
http://www.3600gz.cn/thread-128923-1-1.html
不想下载可直接复制以上代码到易语言。
更多源码下载：http://www.3600gz.cn/thread-121275-1-1.html

紅顏じ亦沉淪ジ

编辑框的程序中有个按下某键，如果真（键代码=#Tab键）

自甴zì恠

不行的，触发不了这个事件

爱你N年

先获取焦点，再如果真（键代码=#Tab键）

记忆是座荒岛

可以试试  思路很简单

5609689

自甴zì恠 发表于 2012-10-7 22:45
不行的，触发不了这个事件

11.rar (1.03 KB, 下载次数: 43)

2012-10-7 23:53 上传

点击文件名下载附件
试试效果！
记得最佳，+分！{:soso_e113:}

剑魂

简单点，看看tab后的下一组件是什么，然后在这个组件里写得到焦点~就说明是上面那个编辑框里失去

百聊

收藏下有用.