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键在列中切换。
     逻辑： 如果光标落在当前行的第一列，那么，按下回车键后，光标跳至
          下一列，依次一直到该行的最后一列。
        当光标在当前行的最后一列时，按下回车键即可新增加一行纪录，
    并且把新增加的行作为当前行，设当前行的第一列为当前列。
     适用： 浏览数据表中的记录
     编程： 海 洋
     创建： 2002年4月3日
     修改：
     版本： 1.0
    ******************************************************************/

 If This.Aclearcase/" target="_blank" >ccepttext()<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)

      当然回车键的使用很广泛，希望有更好的方法和大家分享，也希望大家多提宝贵意见，谢谢！

****************************************Oceanaut 2002-10-22

原文转自：http://www.ltesting.net