PB在数据窗口里实现Enter回车键代替Tab键转到下一行

ehxz

免费乐捐，感谢支持

首先，在local External Fucntions内添加引用function unsignedlong keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'

自定义一个函数ue_entotab

定义两个参数：keycode类型 key和unsignedlong类型keyflags,然后Event ID选择pbm_dwnkey，定义好后添加函数：//响应键盘操作
CHOOSE CASE key
CASE KeyEnter!
  send(handle(this),256,9,long(0,0))
   CASE KeyDownArrow! //,KeyRightArrow!
  keybd_event ( 9, 0, 0 , 0 ) // 按下tab
  keybd_event ( 9, 0, 2, 0 ) // 释放tab
      Return 1
   CASE KeyUpArrow!,KeyLeftArrow!
      keybd_event ( 16, 0, 0, 0 ) // 按下shift
    keybd_event ( 9, 0, 0 , 0 ) // 按下tab
      keybd_event ( 9, 0, 2, 0 ) // 释放tab
    keybd_event ( 16, 0, 2, 0 ) // 释放shift
      Return 1
END CHOOSE

ehxz

在数据窗口中，为了方便输入，经常使用回车键来代替Tab键，将光标转至下一个字段，实现方法如下：

在数据窗口中自定义新的事件，Event Name为u_keyenter，Event ID为pbm_dwnprocessenter

if keydown(keyenter!) then   
   Send(Handle(this),256,9,Long(0,0))    //触发Tab键
   Return 1       //取消原Enter键的动作   
end if

定义完成后，当按下回车键的时候，将触发Tab键，切换至下一输入框，同时屏蔽了Enter键原有的功能