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. ①定义API:
  4.     Subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library "user32.dll"
  5.   
  6. ②自定义一用户事件(ue_keydown ID:pbm_dwnkey)
  7.     integer VK_TAB = 09
  8.     integer VK_SHIFT = 16

  9.     if key = then
  10.        keybd_event(VK_SHIFT,0,0,0) //按下shift
  11.        keybd_event(VK_TAB,0,0,0) //按下tab
  12.        keybd_event(VK_TAB,0,2,0) //释放tab
  13.        keybd_event(VK_SHIFT,0,2,0) //释放shift
  14.        return 1
  15.     end if
  16.     if key = or key= then
  17.        keybd_event(VK_TAB,0,0,0) //按下tab
  18.        keybd_event(VK_TAB,0,2,0) //释放tab
  19.        return 1
  20.     end if

  21. 如若只是想利用ENTER键来实现TAB键的功能可以用以下代码:
  22.     if key= then
  23.         Send(Handle(this),256,9,Long(0,0)) //发送TAB键
  24.       Return 1 //取消原ENTER键的动作
  25.     end if

10-17 04:35