| 
 | 
沙发
 
 
 楼主 |
发表于 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; |   
 
 
 
 |