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

********************************************************* 
* 
* Name: Ctrl2 
*       此程序演示图形化的控制件 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
dime Ary[20] 
for i=1 to alen(Ary) 
   Ary[i]=ltri(str(i))+"#部门" 
endf 
Str="" 
for i=1 to alen(Ary) 
   Str=Str+"编辑Edit  "+ltri(str(i))+chr(13)+chr(10) 
endf 
 
use Profit 
defi popu Pop prom fiel rtri(Month)+"月份" mark '' scro marg 
 
=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,4,21,75,"colo &Color titl '演示窗口1'") 
=actiwind("Ctrl") 
 
Choice1=1 
Choice2=1 
Choice3=1 
Choice4=1 
Choice5=1 
Choice6=1 
=GetCtrl(9,36,8,2,  "Choice1","func '*H \