首页 > 课堂 > 技术开发 > 正文

PB中用回车键代替TAB键

2023-06-15 12:17:34
字体:
来源:转载
供稿:网友

如何在PB中用回车键来代替TAB键呢,下面给出了一个较简单的实现源代码。

//在数据窗口当中按下回车键之后,焦点移动到后面的字段,如从最后移动,则自动跳转到下一行
send(handle(this),256,9,long(0,0))

//窗口当中的enter事件!在datawindow的事件当中新建一个自定义事件ue_enter,在even_id当中paste"pbm_dwnprocessenter"
long      ll_row,ll_RowCount
integer li_col,li_colcount
li_col        = dw_1.GetColumn()
li_ColCount = long(describe(dw_1,"datawindow.column.count"))
if li_col     = li_ColCount then
    ll_row      = dw_1.GetRow()
    ll_RowCount = dw_1.RowCount()
    if ll_row = ll_RowCount then
       ll_row = dw_1.InsertRow(0)
             dw_1.setredraw(false)   
       scrolltorow(dw_1,ll_Row)
       setrow(dw_1,ll_Row)
       setcolumn(dw_1,1)  
       dw_1.setredraw(true)
       dw_1.SetFocus()
           dw_1.modify("datawindow.horizontalscrollposition=1")
       return 1
    end if
end if
send(handle(this),256,9,long(0,0))
return 1

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表