PB中用回车键实现tab键的功能

先编辑控件的TabOrder顺序,然后在 global external functions  中定义一个API:
Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo) LIBRARY "user32.dll"
在窗口的key()事件中写如下代码:
If key = KeyEnter! Or Key = KeyRightArrow! Then
keybd_event( 9,0,0,0 ) // 按下tab

keybd_event( 9,0,2,0 ) // 释放tab
Return 1
End If
If Key = KeyleftArrow! Then
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 If
posted @ 2014-09-28 20:33  第壹时间  阅读(1539)  评论(0编辑  收藏  举报