pb數據窗口回車替換Tab,上下鍵的處理.

pb數據窗口回車替換Tab,上下鍵的處理.:

在datawindow中見userevent  選擇pb_dwnprocessenter 事件名稱key;代碼如下:

 if   keydown(keyenter!)   then  
       Send(Handle(this),256,9,Long(0,0))       //發送TAB鍵  
      Return   1  //取消原ENTER鍵的動作  
 end   if     

使用windwosuser32.dll

聲明全局函數:

//global external functions  中定義一個API：
Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo) LIBRARY "user32.dll"
  再在datawindow建一事件ue_keydown 代碼如下:

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  

 

一切ok