输入框问题

shiyiming

我做了一个类，父类是textentry，目的是当获取焦点是，textentry的背景色改变，失去焦点时，背景还原。我覆写了_binit,_tabin,_tabout三个method，增加了一个新的attribute：mycolor；

代码如下，请指正问题所在：
length _method_ $40 mycolor $24;
_method_=_method_;
_self_=_self_;

/* _binit: Initializes an object at design time */
BINIT: PUBLIC method;
    call super(_self_,_method_);
    call send(_self_,'_set_background_color_','background');
endmethod;

/* _tabIn: Invoked when object is made active */
TABIN: PUBLIC method;
    dcl num rc;
    mycolor=_self_._getAttributeValue('mycolor',rc);
    call send(_self_,'_set_background_color_',mycolor);
    _self_._update();
endmethod;

/* _tabOut: Invoked when object is made inactive */
TABOUT: PUBLIC method;
    call send(_self_,'_set_background_color_','background');
    _self_._update();
endmethod;

shiyiming

不用那么复杂，我做了个简单的供你使用。 <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->
_self_=_self_;

POSTINIT: PUBLIC method;
call super(_self_, '_postInit');
_self_.backgroundColor='Background';
endmethod;

TABIN: PUBLIC method;
_self_.backgroundColor='Red';
endmethod;

TABOUT: PUBLIC method;
_self_.backgroundColor='Background';
endmethod;

shiyiming

谢谢！

我用_self_.getAtrributeValue()和_self_.setAttributeValue()也解决了这个问题，不过你的程序更方便一点。

好像sas8的控件直接采用dot notatioin了，而以前6的控件还是使用call notify，call send。

请教，call super()怎么用？这句call super(_self_, '_postInit')怎么理解。

shiyiming

是啊，所以我一看就知道你是V6的出身的高手，呵呵呵。

语法
CALL SUPER(object-id,method-name&lt;,parameters&gt;);
&lt;return-value=&gt;_SUPER&lt;.method-name&gt;(&lt;parameters&gt;);
call super()是指将原有的方法部分继承，以达到重用的目的。你可以试一下，如果去除这句话程序也能跑，但是log里有error，也就是不能正确实现原有的触发机制。
这是我的个人理解，详情还可参阅help。