SAS中文论坛

标题: 输入框问题 [打印本页]

作者: shiyiming 时间: 2003-10-17 09:56
标题: 输入框问题
我做了一个类，父类是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 时间: 2003-10-17 22:52
不用那么复杂，我做了个简单的供你使用。 <img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" />
_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 时间: 2003-10-20 09:22
谢谢！

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

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

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

作者: shiyiming 时间: 2003-10-20 10:13
是啊，所以我一看就知道你是V6的出身的高手，呵呵呵。

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

欢迎光临 SAS中文论坛 (http://mysas.net/forum/)