行业应用

开发平台：

VFP

SY1.PRG：源码内容

							func PopSel
*---------------------------------------------------------------------
priv Color
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
=defiwind("Info",6,20,11,60,"colo (Color) titl '信息'")
=actiwind("Info")
@2,2 say "您选择的菜单条: "
?? prmbar(popu(),bar())
wait''
=relewind("Info")
retu

						