自己是新手,在窗体的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
------解决方案--------------------