PB在数据窗口里实现Enter回车键代替Tab键转到下一行
首先,在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 在数据窗口中,为了方便输入,经常使用回车键来代替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键原有的功能
页:
[1]