当前位置: 代码迷 >> PB >> PowerBuilder中回车键的使用
  详细解决方案

PowerBuilder中回车键的使用

热度:28   发布时间:2016-04-29 08:08:52.0
PowerBuilder中回车键的应用
PowerBuilder中回车键的应用 PowerBuilder中回车键的应用
   众所周知,回车键一般情况下都适用于确认,那么,在应用程序中用好回车键也是很有必要的。
  1.回车键在window中的应用
   比如一个登录窗口W_login,当用户输入用户名,按下回车键后,即可进入密码的输入,密码输入结束后,按下回车键焦点移动到一下操作,依次类推,那么我们就应该这样用代码来控制:
   首先,假设W_login窗口中有:sle_username、sle_password、cb_ok和cb_cancel等控件。
   a.在sle_username的Modify事件中写如下代码:
   // Script for user event ue_CheckKey, // which is mapped to pbm_keydown.
   IF KeyDown(KeyEnter!) THEN // Go to sle_3 if
   sle_2.SetFocus( ) // Enter pressed.
   END IF
  
   b.在sle_password的Modify事件中写如下代码:
   // Script for user event ue_CheckKey, // which is mapped to pbm_keydown.
   IF KeyDown(KeyEnter!) THEN // Go to sle_3 if
   cb_ok.SetFocus( ) // Enter pressed.
   END IF
  注意:这里不提倡使用按钮的Default属性,否则,按下回车键后响应了按钮的Defaule属性。
  2.回车键在Datawindow中的应用
   当用户录入完一行数据后,如果按下回车键,能够自动跳到下一行,如果当前行是最后一行就自动增加一行。
   /*****************************************************************
   用户对象
   功能: 主要用于用户在进行数据录入时,方便的用Enter键在列中切换。
   逻辑: 如果光标落在当前行的第一列,那么,按下回车键后,光标跳至
   下一列,依次一直到该行的最后一列。
   当光标在当前行的最后一列时,按下回车键即可新增加一行纪录,
   并且把新增加的行作为当前行,设当前行的第一列为当前列。
   适用: 浏览数据表中的记录
   版本: 1.0
   ******************************************************************/
  If This.Accepttext()<0 then
   return
  end if
  if This.getcolumn()=Long(This.Describe("Datawindow.Column.count")) then
   if this.getrow()=This.Rowcount() then
   This.insertrow(0)
   This.scrolltorow(This.getrow()+1)
   This.Setcolumn(1)
   return
   end if
  end if
   send(Handle(this),256,9,long(0,0))
   This.settransobject(sqlca)
   当然回车键的使用很广泛,希望有更好的方法和大家分享,也希望大家多提宝贵意见,谢谢!
  相关解决方案