【vfp开源代码栏目提醒】:以下是网学会员为您推荐的vfp开源代码-dvdmenuaddtion.prg,希望本篇文章对您学习有所帮助。
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE MENU MyMenu BAR &&建立菜单
DEFINE PAD FileMenu OF MyMenu PROMPT "菜单标题(\<F)";
KEY ALT+F,""
ON PAD FileMenu OF MyMenu ACTIVATE POPUP 菜单1
*!* 只显示最近使用的2个菜单项目和一个V字形菜单项
DEFINE POPUP 菜单1 MARGIN
DEFINE BAR 1 OF 菜单1 PROMPT "我的菜单项1"
DEFINE BAR 2 OF 菜单1 PROMPT "我的菜单项2"
DEFINE BAR 3 OF 菜单1 PROMPT "" MRU &&该菜单项将显示为V字形
ON SELECTION BAR 1 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 2 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 3 OF 菜单1 DO ReCreateMenu &&执行重新建立菜单程序
ACTIVATE MENU MyMenu NOWAIT
PROCEDURE ReCreateMenu &&重新建立菜单,显示全部菜单项
RELEASE BAR All OF 菜单1
DEFINE BAR 1 OF 菜单1 PROMPT "我的菜单项1"
DEFINE BAR 2 OF 菜单1 PROMPT "我的菜单项2"
DEFINE BAR 3 OF 菜单1 PROMPT "我的菜单项3" INVERT
DEFINE BAR 4 OF 菜单1 PROMPT "我的菜单项4" INVERT
DEFINE BAR 5 OF 菜单1 PROMPT "关闭" INVERT
ON SELECTION BAR 1 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 2 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 3 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 4 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 5 OF 菜单1 DO SelectProc WITH BAR()
ACTIVATE POPUP 菜单1
ENDPROC
PROCEDURE SelectProc
LPARAMETERS nBar
RELEASE BAR All OF 菜单1 &&删除菜单项,重新设置为最近使用形式的菜单
DEFINE BAR 1 OF 菜单1 PROMPT "我的菜单项1"
DEFINE BAR 2 OF 菜单1 PROMPT "我的菜单项2"
DEFINE BAR 3 OF 菜单1 PROMPT "" MRU &&该菜单项将显示为V字形
ON SELECTION BAR 1 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 2 OF 菜单1 DO SelectProc WITH BAR()
ON SELECTION BAR 3 OF 菜单1 DO ReCreateMenu &&执行重新建立菜单程序
IF nBar = 5
DEACTIVATE MENU MyMenu
RELEASE MENUS MyMenu &&释放菜单
SET SYSMENU TO DEFAULT &&恢复系统菜单
ELSE
=MESSAGEBOX("你选择了菜单项"+ALLTRIM(STR(nBar)))
ENDIF
ENDPROC
上一篇:
dockingforms2.PRG
下一篇:
关于大学英语教学