现在的位置: 首页 > 综合 > 正文

数据窗口使用技巧系列文章–回车键的完整编程

2013年08月15日 ⁄ 综合 ⁄ 共 610字 ⁄ 字号 评论关闭

下面的脚本在数据窗口的PBm_dwnprocessenter用户事件中编写,用来检查数据窗口中录入数据的各种情况,并执行相应的程序。
(1)当返回负值时
肯定某列存在错误,这时既不处理Enter键也不处理Tab键。
(2)当返回非负值时
如果是最后的行列则应该在按回车键时插入一行,并使光标定位到新行的第一列上。
- 如果不是最后行列则应该发送Tab信息,屏蔽Enter键的处理。
脚本如下:
If This.AcceptText() < 0 Then //如果不能正确接受用户的输入信息
      Return 1 //则不进行按键处理,直接返回
End If
If This.GetColumn()=Long(dw_1.Object.DataWindow.Column.Count) Then //如果是最后一列
     If This.GetRow() = This.RowCount() Then //并且是在最后一行
          This.InsertRow(0) //则增加新行
          This.ScrollToRow(This.GetRow() + 1) //并且使之成为当前行
          This.SetColumn(1) //并将第一列设置为当前列
          Return 1 //然后返回
     End If
End If
Send(Handle(This),256,9,Long(0,0)) //发送处理Tab键的消息
Return 1//忽略回车键的处理

抱歉!评论已关闭.