www.pudn.com > jq_transfile.ARJ > CTRL1.PRG

********************************************************* 
* 
* Name: Ctrl1 
*       此程序演示图形化的控制件 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
=RefreshScr() 
Color='B/W,B/W,W/W,W+/B,W/B,W+/B,W+/W,W/B,N/W,N+/W' 
=defiwind("Ctrl",2,2,12,70,"colo &Color titl '演示窗口1'") 
=actiwind("Ctrl") 
 
Choice1=1 
Choice2=1 
Choice3=1 
Choice4=1 
=GetCtrl(2,4,12,1, "Choice1","func '*  \