如何利用左右键及回车键来转移列的焦点.txt

源码可以下载 PB方面的 主要是PB的数据库管理方面的 技术资料 可以让大家学习的

如何利用左右键及回车键来转移列的焦点

这要用到Windows中的API函数keybd_event() 

①定义API：
    Subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library "user32.dll"
  
②自定义一用户事件(ue_keydown  ID:pbm_dwnkey)：
    integer VK_TAB = 09
    integer VK_SHIFT = 16

    if key = KeyLeftArrow! then
       keybd_event(VK_SHIFT,0,0,0) //按下shift
       keybd_event(VK_TAB,0,0,0) //按下tab 
       keybd_event(VK_TAB,0,2,0) //释放tab 
       keybd_event(VK_SHIFT,0,2,0) //释放shift 
       return 1
    end if
    if key = KeyRightArrow! or key=KeyEnter! then
       keybd_event(VK_TAB,0,0,0) //按下tab 
       keybd_event(VK_TAB,0,2,0) //释放tab 
       return 1
    end if 

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

[注]keybd_event()函数 

说明： 这个函数模拟了键盘行动。 
参数 类型及说明 
bVk 欲模拟的虚拟键码。 
bScan 键的OEM扫描码。 
dwFlags Long，零；或设为下述两个标志之一 
            &H1    指出是一个扩展键，而且在前面冠以0xE0代码。 
            &H2    模拟松开一个键。 
dwExtraInfo Long，通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序。