数据窗口中用Enter键替代Tab 键切换栏目

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2017-06-13 17:05:06

  问:PB中数据窗口输入栏目(域)间的切换通过按键盘最左边的Tab 键来实现,既不方便又影响录入速度。如何能用Enter键替代Tab 键切换栏目,实现焦点的转移?

  答:由于按Enter键是Windows直接支持的消息,故我们可以使用用户事件来解决此问题。 在用户事件中,PowerBuilder提供的一条pbm_事件对应Windows的一条或几条消息。我们在数据窗的用户事件中选择pbm_dwnProcessEnter并命名为ue_Enterkeydown。当我们按下Enter键时,将触发此事件。
   提供两种方法(推荐用第二种):
   1.利用数据窗口的SetColumn函数。
   在所定义的ue_Enterkeydown事件下写代码:
   long ll_column_count
   long ll_column
   ll_column_count =long(this.Describe(“DataWindow.Column.Count”))
   ll_column = this.GetColumn()
   if ll_column = ll_column_count then
   return
   else
   this.SetColumn(ll_column + 1)
   end if
   用上面脚本,须注意几点:
   (1) 按Enter键,焦点的切换是按所选列的顺序,而不是按设置的Taborder的顺序。
   (2) 若某列的visible属性为false 或 TabOrder = 0, 则以上方法不起作用。
   若不合以上要求,即所选列的顺序与要录入域顺序不一致,或某些列的visible属性为false或 其TabOrder = 0,此时不能用上述代码,但也可用类似方法实现,只是稍繁琐一点,举例如下:
   long ll_column
   string ls_column_name
   ll_column = this.getcolumn()
   ls_column_name = this.Describe(“#”+string(ll_column)+“.Name”)
   choose case ls_column_name //列名
   case ‘no'
   this.SetColumn(‘name')
   case ‘name'
   this.SetColumn(‘age')   case ‘age'
   …
   end choose
   2.把消息传递给Tab键,同时忽略Enter键的处理,这种方法最为方便简洁。在ue_Enterkeydown事件中
   编写脚本如下:
   Send(Handle(this),256,9,Long(0,0))
   Return 1


Tags:

作者:佚名
分享到: 微信 更多