当前位置: 代码迷 >> VFP >> 如其使grid回车后,command 获得焦点
  详细解决方案

如其使grid回车后,command 获得焦点

热度:8158   发布时间:2013-02-26 00:00:00.0
如果使grid回车后,command 获得焦点?
求教!
------解决方案--------------------------------------------------------
方法1:
将 Grid 的 ColumnCount 设为大于0,然后在 Grid 每列的 text1 控件的 keypress 事件加代码Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=13
* Nodefault
Thisform.Command1.SetFocus
Endif
-------------------------
方法2: vfp8.0、9.0
新建一个按钮,如 Command100,其 Visible 属性为 .F.,其 Click 事件代码为:
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=13
* Nodefault
Thisform.Command1.SetFocus
Endif

然后表单的 Init 事件加代码:
With Thisform.Grid1
For lnI=1 To .ColumnCount
=Bindevent(.Columns(lnI).Text1,'KeyPress',Thisform.Command100,'Click')
Endfor
Endwith
  相关解决方案