行业应用

开发平台：

VFP

MENU1.PRG：源码内容

							*********************************************************
*
* Name: Menu
*       此程序演示菜单函数
*
**********************************************************
set talk off
set esca off
set path to ..
do LoadSDK                    && 装入SDK
clea
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,W+/W,W/B,N/W,W+/W'
=defiwind("WT",4,2,15,75,"colo &Color titl '演示窗口1'")
=actiwind("WT")
=ShowBMPIn(C2X(0),R2Y(1),C2X(wcol("WT")),R2Y(wrow("WT")),"_Castle.bmp")
Color='BG/W,N/W,GR/W,GR+/W,N+/W,W+/B,W+/W,N+/N,GR+/B,R+/B'
=DefiMenu("MAINMENU",0,0,0,50,"colo &Color")
defi pad SysInfo  of MAINMENU prom '<S. 系统' at 0,0
defi pad SysTool  of MAINMENU prom '<T. 工具' at 0,9
defi pad Test     of MAINMENU prom '<N. 不激活' at 0,18 skip for .t.
on sele pad SysInfo of MainMenu do InfoProc
on sele pad SysTool of MainMenu do ToolProc
=DefiPopup("SysInfo",1,0,6,15,"colo &Color shad")
defi bar  1 of SysInfo prom '<H. 帮助    ' key F2,'F1'
defi bar  2 of SysInfo prom '<V. 版权    '
defi bar  3 of SysInfo prom '<S. 系统状况' key F3,'F4'
defi bar  4 of SysInfo prom '<I. 操作方法' key F4,'F2'
on selection popu SysInfo do PopSel
=DefiPopup("SysTool",1,9,8,26,"colo &Color")
defi bar  1 of SysTool prom '<C. 算术计算器' key F5,'F5'
defi bar  2 of SysTool prom '<B. 响铃设置  '
defi bar  3 of SysTool prom '<M. 鼠标设置  ' key F6,'F6'
defi bar  4 of SysTool prom '-'
defi bar  5 of SysTool prom '<S. DOS环境   '  skip for .t.
defi bar  6 of SysTool prom '<D. DOS命令   ' key F3,'F3'
on selection popu SysTool do PopSel
do _ActiMenu with "MainMenu" in Mistool
=RelePopup("SysInfo")
=RelePopup("SysTool")
=DeacMenu('MainMenu')
=ReleMenu('MainMenu')
=ReleWind("WT")
retu
func InfoProc
*---------------------------------------------------------------------
do _ActiPopup with "SysInfo" in Mistool
=DeacPopup('SysInfo')
retu
func ToolProc
*---------------------------------------------------------------------
do _ActiPopup with "SysTool" in Mistool
=DeacPopup('SysTool')
retu
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

						