|
沙发
楼主 |
发表于 2003-9-29 16:20:59
|
只看该作者
/*以Pushbotton为例*/
dcl object objPushbutton;
dcl list listAttributes listTmp;
dcl num numRC;
init:
listTmp=makelist();
listAttributes=makelist();
numRC=setnitemn(listTmp, 100, 'ULX');
numRC=setnitemn(listTmp, 100, 'ULY');
numRC=setnitemn(listTmp, 200, 'LRX');
numRC=setnitemn(listTmp, 200, 'LRY');
numRC=setnitemc(listTmp, 'PIXELS', 'UNITS');
numRC=setniteml(listAttributes , listTmp, '_REGION_');
numRC=setnitemc(listAttributes , 'Push', 'NAME');
objPushbutton=_neo_ sashelp.classes.pushbutton_c.class(listAttributes);
objPushbutton.Label='TEST';
return; |
|