当前位置: 代码迷 >> PB >> 一个跳转有关问题
  详细解决方案

一个跳转有关问题

热度:33   发布时间:2016-04-29 10:13:13.0
一个跳转问题
在窗体里有几个控件,在KEY事件里写如下语句,用ENTER代替TAB跳转。
if key = keyenter! then
keybd_event(9,0,0,0)
keybd_event(9,0,2,0) 
return 1
end if

在窗体里有个数据窗口,在数据窗口里定义个dwnkey事件里写如下语句,用ENTER代替TAB跳转。
if key = keyenter! then
keybd_event(9,0,0,0)
keybd_event(9,0,2,0) 
return 1
end if

结果在数据窗口里按ENTER时,会跳转两个ENTER,但在窗体不会!
如果只在窗体里写KEY事件,数据窗口的ENTER不能代替TAB!
如果只在数据窗口里写KEY事件,窗体的ENTER不能代替TAB!

请指教。



------解决方案--------------------
新建一个实例变量,如叫 blob bl_IsWindows = 1
在窗体里有几个控件,在KEY事件里写如下语句,用ENTER代替TAB跳转。
bl_IsWindows = 1
if key = keyenter! and bl_Iswindows <> 0 then
keybd_event(9,0,0,0)
keybd_event(9,0,2,0)
return 1
end if

在窗体里有个数据窗口,在数据窗口里定义个dwnkey事件里写如下语句,用ENTER代替TAB跳转。
bl_IsWindows = 0
if key = keyenter! then
keybd_event(9,0,0,0)
keybd_event(9,0,2,0)
return 1
end if

//这样试试看
  相关解决方案