PB 用方向键转移焦点及回车键触发

1. 用方向键转移焦点及回车键触发
   
2.  
   
3. 　　窗口的key事件：
   
4. 　　GRAPHICOBJECT cb_control //定义环境变量
   
5. 　　CHOOSE CASE KEY
   
6. 　　　　　 CASE //按光标右键右移焦点
   
7. 　　　　　　　　keybd_event(9,0,0,0)
   
8. 　　　　　　　　keybd_event(9,0,2,0)
   
9. 　　　　　 CASE //按光标下键右移焦点
   
10. 　　　　　　　　keybd_event(9,0,0,0)
    
11. 　　　　　　　　keybd_event(9,0,2,0)
    
12. 　　　　　 CASE //按光标左键左移焦点
    
13. 　　　　　　　　keybd_event(16,0,0,0)
    
14. 　　　　　　　　keybd_event(9,0,0,0)
    
15. 　　　　　　　　keybd_event(16,0,2,0)
    
16. 　　　　　　　　keybd_event(9,0,2,0)
    
17. 　　　　　 CASE //按光标上键左移焦点
    
18. 　　　　　　　　keybd_event(16,0,0,0)
    
19. 　　　　　　　　keybd_event(9,0,0,0)
    
20. 　　　　　　　　keybd_event(16,0,2,0)
    
21. 　　　　　　　　keybd_event(9,0,2,0)
    
22. 　　　　　 CASE //回车键触发焦点处控件
    
23. 　　　　　　　　cb_control = GETFOCUS()
    
24. 　　　　　　　　IF TypeOf(cb_control)= THEN
    
25. 　　　　　　　　　　Triggerevent(cb_control,
    
26. 　　　　　　　　END IF
    
27. 　　END CHOOSE

1. 问：请问如何实现利用左右键及回车键进行列的焦点转移?
   
2. 答：这要用到Windows中的API函数keybd_event()
   
3. 
   
4. ①定义API：
   
5.     Subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library "user32.dll"
   
6.   
   
7. ②自定义一用户事件(ue_keydown ID:pbm_dwnkey)：
   
8.     integer VK_TAB = 09
   
9.     integer VK_SHIFT = 16
   
10. 
    
11.     if key = then
    
12.        keybd_event(VK_SHIFT,0,0,0) //按下shift
    
13.        keybd_event(VK_TAB,0,0,0) //按下tab
    
14.        keybd_event(VK_TAB,0,2,0) //释放tab
    
15.        keybd_event(VK_SHIFT,0,2,0) //释放shift
    
16.        return 1
    
17.     end if
    
18.     if key = or key= then
    
19.        keybd_event(VK_TAB,0,0,0) //按下tab
    
20.        keybd_event(VK_TAB,0,2,0) //释放tab
    
21.        return 1
    
22.     end if
    
23. 
    
24. 如若只是想利用ENTER键来实现TAB键的功能可以用以下代码：
    
25.     if key= then
    
26.         Send(Handle(this),256,9,Long(0,0)) //发送TAB键
    
27.     　　Return 1 //取消原ENTER键的动作
    
28.     end if