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)
当然回车键的使用很广泛,希望有更好的方法和大家分享,也希望大家多提宝贵意见,谢谢!