专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > PB

求教一个enter跳转焦点的基础有关问题

发布时间:2011-06-29 20:29:49 文章来源:www.iduyao.cn 采编人员:星星草
求教一个enter跳转焦点的基础问题
自己是新手,在窗体的key事件中写了如下脚本:

GraphicObject which_control

which_control = GetFocus()

IF KeyDown(KeyEnter!) THEN // Go to sle_3 if  
  
CHOOSE CASE TypeOf(which_control)
CASE CommandButton! //命令按钮


which_control.TriggerEvent("Clicked") 



CASE ELSE

post (Handle(this),256,9,0)


END CHOOSE

想用enter实现焦点变化,如焦点在cb控件上执行clicked事件,否则跳到下个控件。目前如果cb控件有初始焦点,则enter后正常,而如果是文本输入框,按了enter后,焦点消失,程序无响应。自己估计应该是“post (Handle(this),256,9,0)”问题,但查了很多地方,好像都是这么写的。

请前辈们指点下,谢谢。另外,我的系统是Win7,会不会是Win7里面这个Post函数不能用??

------解决方案--------------------
一般来说,这样即可:

IF key = keyenter! THEN
Send(Handle(THIS),256,9,Long(0,0))
END IF

------解决方案--------------------
探讨
还是不行,怀疑是不是Win7系统不支持这样做,打算恢复成Winxp再试下。但如果xp可以那作出来的程序在Win7下不知道能否运行
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: