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

********************************************************* 
* 
* Name: Ctrl2 
*       此程序演示图形化的控制件 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
use Profit 
Color='N/W*,B/W*,W/W,W+/B,N/W,W+/B,GR/W,W/B,N/W,W+/W' 
defi popu P prom fiel " "+rtri(Month)+"月份" mark '' scro colo &Color 
 
=RefreshScr() 
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,W+/W,W/B,N/W,N+/W' 
=defiwind("Ctrl",2,10,15,70,"colo &Color titl '演示窗口1'") 
=actiwind("Ctrl") 
 
Choice1=1 
Choice2=1 
Choice3=1 
Choice4=1 
Choice5=1 
=GetCtrl(9,24,8,2, "Choice1","func '*H \