当前位置: 代码迷 >> PB >> 求教一个enter跳转焦点的基础有关问题
  详细解决方案

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

热度:77   发布时间:2016-04-29 10:34:58.0
求教一个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下不知道能否运行
  相关解决方案