Applications

Development Platform:

VFP

CTRL2.PRG：Code Content

							*********************************************************
*
* 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 <Yes;<No;\Cancle'")
=GetCtrl(1,2,11,16,"Choice2","POPU P func '&'")
=GetCtrl(2,25,12,0,"Choice3","func '*R <Radio1;R<adio2;\Radio3;Ra<dio4'")
=GetCtrl(2,40,12,1,"Choice4","func '*C <Check1'")
=GetCtrl(4,40,12,1,"Choice5","func '*C C<heck2'")
read CYCL
=relewind("Ctrl")
use
set curs on
retu

						