行业应用

开发平台：

VFP

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 <Yes;<No;\Cancle'")
=GetCtrl(1,1,11,14, "Choice2","POPU Pop func '&' colo b/w*,b/w*")
=GetCtrl(1,18,11,14,"Choice3","FROM Ary func '&' colo b/w*,b/w*")
=GetCtrl(2,37,12,0, "Choice4","func '*R <Radio1;R<adio2;\Radio3;Ra<dio4'")
=GetCtrl(2,52,12,1, "Choice5","func '*C <Check1'")
=GetCtrl(4,52,12,1, "Choice6","func '*C C<heck2'")
=edit(13,20,4,40,"Str","scro colo b/w*,b/w*")
set curs on
read cycl
=relewind("Ctrl")
use
retu

						