行业应用

开发平台：

VFP

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 '*  <Yes;<No;\Cancle'")
=GetCtrl(2,25,12,1,"Choice2","func '*R <Radio1;R<adio2;Ra<dio3'")
=GetCtrl(2,40,12,1,"Choice3","func '*C <Check1'")
=GetCtrl(4,40,12,1,"Choice4","func '*C C<heck2'")
on read do _ReadHandle in mistool
a="123"
=get(6,40,"a","vali a='123'")
read cycl colo W+/B,W+/B
=relewind("Ctrl")
set curs on
retu

						