读书人

一个跳转有关问题

发布时间: 2012-02-04 15:43:08 作者: rapoo

一个跳转问题
在窗体里有几个控件,在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

//这样试试看

读书人网 >PB

热点推荐