admin管理员组文章数量:1531792
2024年3月20日发(作者：)
电脑编程技巧与维护
在应用系统中实现可自动隐藏的菜单
王守银
（武警指挥学院，天津３００２５０）
摘要：采取常规的ＶＦＰ菜单设计器进行设计，菜单的显示效果就是只要鼠标进行点击就会全部展开，当菜单项特
别多时，显示效果就特别差，必须自动隐藏部分不常用的菜单，提出了应用系统中实现自动隐藏菜单的方法。
关键词：应用系统；自动隐藏；菜单
Ｒｅａｌｉｚａｔｉｏｎ ｏｆ Ａｕｔｏｈｉｄｅ Ｍｅｎｕ ｉｎ Ａｐｐｌｉｃａｔｉｏｎ Ｓｙｓｔｅｍ
ＷＡＮＧ Ｓｈｏｕｙｉｎ
（Ａｒｍｅｄ Ｐｏｆｉｃｅ Ｃｏｍｍａｎｄ Ｃｏｌｌｅｇｅ，Ｔｉａｎｊｉｎ ３００２５０）
Ａｂｓｔｒａｃｔ：Ｍｅｎｕ ｄｅｓｉｇｎｅｄ ｂｙ ｔｈｅ ｃｏｎｖｅｎｔｉｏｎａｌ ＶＦＰ ｍｅｎｕ ｄｅｓｉｇｎｅｒ ｈａｓ ａ ｃｈａｒａｃｔｅｒｉｓｔｉｃ ｔｈａｔ ｗｈｅｎ ｕｓｅｒ ｃｌｉｃｋ ｉｔ ｗｉｔｈ ｍｏｕｓｅ
ｔｈｅ ｉｔｅｍｓ ｏｆ ｔｈｅ ｍｅｎｕ ｗｉｌｌ ｄｉｓｐｌａｙ ｅｎｔｉｒｅｌｙ．Ｔｈｉｓ ｄｉｓｐｌａｙ ｍｅｔｈｏｄ ｉｓ ｖｅｒｙ ｉｎｃｏｎｖｅｎｉｅｎｔ ｗｈｅｎ ｔｈｅ ｎｕｍｂｅｒ ｏｆ ｔｈｅ ｍｅｎｕ ｉｔｅｍｓ ｉｓ
ｖｅｒｙ ｌａｒｇｅ，ｔｈｅｒｅｆｏｒｅ ｉｔ ｉｓ ｎｅｃｅｓｓａｒｙ ｔｏ ａｕｔｏｈｉｄｅ ｓｏｍｅ ｓｅｌｄｏｍ ｕｓｅｄ ｍｅｎｕ ｉｔｅｍｓ ｉｎ ｔｈｉｓ ｃａｓｅ．Ｔｈｅ ｐａｐｅｒ ｐｒｏｐｏｓｅｄ ａ ｍｅｔｈｏｄ ｆｏｒ
Ｒｅａｌｉｚａｔｉｏｎ ａｕｔｏ ｈｉｄｅ ｍｅｎｕ ｉｎ ａｐｐｌｉｃａｔｉｏｎ ｓｙｓｔｅｍ．
Ｋｅｙ ｗｏｒｄｓ：ａｐｐｌｉｃａｔｉｏｎ ｓｙｓｔｅｍ；ａｕｔｏｈｉｄｅ；ｍｅｎｕ
使用ＶＦＰ进行编程时，程序的菜单一般来说都是通过菜
单设计器设计完成，完成设计后在系统运行状态下菜单不能
“显示”一“常规选项”，在常规选项对话框中，将“顶层表
单”复选框选中，表示此菜单将应用于顶层表单中。
进行修改，并且打开菜单时，所有菜单项都是可见的。当前
许多优秀的系统软件设计的菜单都是这样的功能，在显示菜
单时，一般只显示经常进行操作的菜单项，而把大多数的菜
单项进行隐藏，当需要使用被隐藏的菜单项时，只需要单击
菜单项中向下的剪头即可展开全部菜单项，使用起来非常方
便。那么在ＶＦＰ编写的应用程序中如何来实现这样的功能呢？
其实，在ＶＦＰ８．０以后的版本中，提供了一种菜单技术ＭＲＵ
（Ｍｏｓｔ Ｒｅｃｅｎｔｌｙ Ｕｓｅｄ），即只显示最近使用的菜单，而隐藏那些
不经常使用的菜单项。因此，ＶＦＰ在菜单定义命令中添加了
一
个ＭＲＵ参数，只需要在定义的菜单项后面加上ＭＲＵ参数，
即可将该菜单项设置为隐藏菜单项，用户只需要移到或单击
向下的箭头就可以展开或隐藏该菜单项。
１ 实现过程
利用菜单设计器创建一个新菜单，设计结果如图１所示。
图２
选中“常规选项”对话框中的“清理”复选框，在弹出
的代码编辑器中输入如下执行过程函数：
＆＆下面程序在鼠标移到隐藏菜单对应位置时，可以展开
＆＆显示隐藏的菜单
ＰＲ０ＣＥＤＵＲＥ ｒｅｐｏｒｔ
ｍｒｕ
＿
Ｌ０ＣＡＬ ＭＥＮＵＮＡＭＥ
＿
ＮＡＭＥ＝”数据管理Ｆ”
＆＆对应ＰＯＰＵＰ菜单的名称
ＭＥＮＵ
＿
图１
ＲＥＬＥＡＳＥ ＢＡＲ ＡＬＬ ＯＦ（ＭＥＮＵ＿ＮＡＭＥ）
在设计“数据管理”菜单项最后一项中，将菜单名称设
置为空，将结果设置为过程，以便自己添加过程函数。再单
击“选项”按钮，在弹出的对话框中，将“跳过”条件设置
为“．Ｆ．ＭＲＵ”，如图２所示。
＆＆释放所有菜单项内容，重新生成菜单项
ＤＥＦＩＮＥ ＢＡＲ ｌ ＯＦ（ＥＮＵ＿ＮＡＭＥ）ＰＲＯＭＰＴ”数据 Ｍ
录入 Ｎ）”ＩＮＶＥＲＴ
ＤＥＦＩＮＥ ＢＡＲ ２ ＯＦ（ＥＮＭＵ
收稿日期：２０１２—０２—１６
”数据
在保持“菜单设计器”打开的情况下，选择系统菜单
Ｓ０Ｆ’唧ＡＲＥ ＤＥＶＥＬ０ＰＭＥＮＴ ＡＮＤ ＤＥＳＩＧＮ
查询 Ｃ）”
ＤＥＦＩＮＥＢＡＲ ３ ０Ｆ
（ＭＥＮＵ＿ＮＡＭＥ）ＰＲＯＭＰＴ”打印
表格 Ｐ）”
Ｄ脚ＮＥ ＢＡＲ ５ ＯＦ
（ＭＥＮＵ＿ＮＡＭＥ）ＰＲＯＭＰＴ”数据
备份（＼＜Ｂ）”Ⅱ ＥＲＴ
ＤＥＦＩＮＥ ＢＡＲ ６ ＯＦ
（ＭＥＮＵ＿ＮＡＭＥ）ＰＲＯＭＰＴ”数据
恢复 Ｈ）”
ＤＥＦ Ｅ ＢＡＲ ７ ０Ｆ
（ＭＥＮＵ＿ＮＡＭＥ）ＰＲＯＭＰＴ”数据
导入（＼＜Ｉ）”Ⅱ ＥＲＴ
ＤＥＦＤ－ ＢＡＲ ８ ＯＦ
（ＭＥＮＵ＿ＮＡＭＥ）ＰＲＯＭＰＴ”数据
导出（＼＜Ｅ）” ＶＥＲＴ
＆＆定义当鼠标选中菜单项，系统执行菜单对应的命令
０Ｎ ＳＥＬＥＣＴ１０Ｎ ＢＡＲ ｌ ０Ｆ ｒ Ｍ匝ＮＵ
．
ＮＡＭＥ）ｄｏ
ＲｕｎＲｅｐｏｒｔ
０Ｎ Ｓ眦ＣＴ１０Ｎ ＢＡＲ ２ ＯＦ （Ｍ匣ＮＵ ＮＡＭ＿Ｅ）ｄｏ
ＲｕｎＲｅｐｏｒｔ
０Ｎ ＳＥＬＥＣＴＩＯＮ ＢＡＲ ３ ＯＦ ｆ～匝ＮＵ
＿
ＮＡＭＥ）ｄｏ
ＲｕｎＲｅｐｏｒｔ
０Ｎ ＳＥＬＥＣＴ１０Ｎ ＢＡＲ ５ ＯＦ ｆ ＮⅡ Ｎ ＮＡＭＥ１ ｄ０
ＲｕｎＲｅｐｏ￣
０Ｎ ＳＥＬＥＣＴ１０Ｎ ＢＡＲ ６ ＯＦ （Ｍ瞳ＮＵ ＮＡＭＥ）ｄｏ
ＲｕｎＲｅｐｏｒｔ
０Ｎ ＳＥＬＥＣＴ【０Ｎ ＢＡＲ ７ ＯＦ ｆ Ｍ匝ＮＵ
ＮＡＭＥ）ｄｏ
ＲｕｎＲｅｐｏｒｔ
０Ｎ ＳＥＬＥＣＴ１０Ｎ ＢＡＲ ８ ＯＦ （ＭＥＮＵ ＮＡＭ＿Ｅ） ｄｏ
ＲｕｎＲｅｐｏｒｔ
＆＆定义一个隐藏菜单项
Ｄ阴ＮＥ ＢＡＲ ９ ＯＦ（ 匝ＮＵ ＮＡＭＥ）ＰＲ０Ｍ盯” ”
ＭＲＵ ＩＮＶＥＲＴ
＆＆执行动作为合并菜单项的过程函数ＥｘｐＭｅｎｕ
０Ｎ ＳＥＬＥＣＴＩｏＮ ＢＡＲ ９ ＯＦ ｆ Ｍ匣ＮＵ
．
ＮＡＭＥ）ｄｏ
ＥｘｐＭｅｎｕ
＆＆激活菜单
ＲＥＬＥＡＳＥ ＢＡＲ
ＡＣＴＩＶＡＴＥ ＰＯＰＵＰ（ＭＥＮＵ
（ＭＥＮ．Ｕ＿ＮＡ
Ｍ
Ｅ）
ＢＡＲ
１
５ ＯＦ ＮＡＭ
匠１
ＲＥＬＥＡＳＥ
ＲＥＬＥＡＳＥ ＢＡＲ
ＢＡＲ ６
７ ＯＦ
ＯＦ（
（ＥＭ
ＥＭＵＮ
ＮＵ
ＮＡⅧ
． ＮＡⅧ
１
、
ＲＥＬＥＡＳＥ ＢＡＲ ８ ＯＦ（ＥＭＮＵ ＮＡＭＥ）
ＲＥＬＥＡＳＥＢＡＲ ９ＯＦ（ＭＥＮＵ ＮＡＭＥ、
＆＆再定义一个展开菜单项
ＤＥＦＩＮＥ ＢＡＲ ４ ＯＦ（ＭＥＮＵ
＿
ＮＡＭＥ）ＰＲ０Ｍ ”ｒｅｐｏｒｔ
ｍｒｕ”ＭＲＵ
＆＆执行函数本身
０Ｎ ＳＥＬＥＣＴＩＯＮ ＢＡＲ ４ ＯＦ （ＭＥＮＵ ＮＡⅣ匝１ ＤＯ
ｒｅｐｏｒｔ＿ｍｒｕ
ＥＮＤＰＲ０Ｃ
ＰＲＯＣＥＤＵＲＥ ＥｘｐＭｅｎｕ＆＆合并菜单项
Ｌ０ＣＡＬ ｌｃＰａｄＮａｍｅ
ｌｃＰａｄＮａｍｅ＝”数据管理Ｆ”＆＆获得ＰＯＰｕＰ菜单名称
ＲＥＬＥＡＳＥ ＢＡＲ ａｌｌ ＯＦ（１ｃＰａｄＮａｍｅ）
ＤＥＦＩＮＥ ＢＡＲ １ ＯＦ（１ｃＰａｄＮａｍｅ）ＰＲＯＭＰＴ”数据录
人ｎ＜Ｎ）”
ＤＥＦ Ｅ ＢＡＲ ２ ＯＦ（１ｃＰａｄＮａｍｅ）ＰＲＯＭ ”数据查询
ｆ＼＜Ｃ＇）｜－
ＤＥＦＩＮＥ ＢＡＲ ３ ＯＦ（１ｃＰａｄＮａｍｅ）ＰＲ０ＭＰＴ”打印表格
Ｐ１”
ＤＥ１ ＢＡＲ ４ ＯＦ（１ｃＰａｄＮａｒｎｅ）ＰＲＯＭＰＴ” ”Ｍ＿ＲＵ
ＮＶＥＲＴ
软件开发与设计
０Ｎ ＳＥＩ．ＥＣＴ１０Ｎ ＢＡＲ １ ０Ｆ（ＩｃＰａｄＮａｍｅ）ｄｏ ＲｕｎＲｅｐｏｒｔ
０Ｎ ＳＥ］Ｌ凰ＣＴ１０Ｎ ＢＡＲ ２ ＯＦ（１ｃ Ｐ： Ｎａｍｅ）ｄｏ ＲｕｎＲｅｐｏｒｔ
０Ｎ ＳＥＬＥＣＴ１０Ｎ ＢＡＲ ３ ０Ｆ（ＩｃＰａｄＮａｍｅ）ｄｏ ＲｕｎＲｅｐｏｇ
０Ｎ ＳＥＬＥＣＴＩＯＮ ＢＡＲ ４ ＯＦ ｆ ｌｃＰａｄＮａｍｅ）ｄｏ
ｒｅｐｏｒｔ＿ｍｒｕ
ＡＣＴⅣＡＴＥ ＰＯＰＵＰ（１ｃＰａｄＮａｍｅ）ＢＡＲ ｌ
ＥＮＤＰＲＯＣ
＆＆用户选择菜单项执行的命令
ＰＲ０ＣＥＤＵＲＥ ＲｕｎＲｅｐｏ￣
Ｌ０ＣＡＬ ｌｃＳｔｒ
ｅｓｓＡＧＥＢ０ｘ（”你选择的菜单项为：”＋Ｐ０ＰＵＰ（）
＋ＢＡＲ（））
ＥＮＤＰＲ０Ｃ
将设置好的菜单进行编译后，新建一个表单，将表单的
ＳｈｏｗＷｉｎｄｏｗ属性设置为２—顶层表单，在表单的Ｉｎｉｔ事件中
写入如下代码：
Ｄ０ ＭＥＮＵ １．ＭＰＲ ＷＩＴＨ ＴＨＩＳ．．Ｔ．
２程序运行
按照上述编程设置后，运行这个表单，可以得出当前菜
单初始状态如图３所示。
暾 赫露 ～……骜凌强鼍§萎 誊嚣§筵§ｌ鼍ｇ嚣蠹§ｌ 薯 ｜ ｜｜。 ｜
数甓最 ｏ ｉ） ｜
瓠毫｛慊稿 萋｜鼍馨萋薯叠薯薯Ｉ譬萎警ｊ｜薯毫誊叠０ 警ｌ毒ｌ
ｌ 嚣鏊 誊 ｉ ｊ ｉ÷ ｌ｜｜
譬 ｜ § § 蠹笺 孽 毒 毒 ｜鼍ｌ 薯薯 ｜ ｜ ｊ
ｉ ≯嚣 ｔ ＊｜｜ｌｌ｜｜
强《嚣－’“ 叠毪强棼ｇ。棼薯 ｌⅢ 臻 一ｕ ＿ｔ｜。 ：ｉ ｊ ｜
图３
当鼠标放在菜单项最下面时，系统菜单自动变化为如图４
所示。
图４
将鼠标移到最下方，这时菜单又恢复原状。
３ 结语
设计与实现的对系统菜单的自动隐藏功能使用起来非常
方便，有兴趣的读者不妨一试。在Ｗｉｎｄｏｗｓ ＸＰ加ＶＦＰ９．０下
通过运行。
版权声明：本文标题：在应用系统中实现可自动隐藏的菜单 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1710918431a290383.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论