-
vb教程之VB5制作上下文菜单
在Ｗｉｎ ９５中，我们常常通过单击鼠标右键来激活一个快捷菜单，从而加快了操作。此处所说的快捷菜单就是上下文菜单。上下文菜单在ＶＢ５中又称作弹出式菜单，它是独立于菜单栏而显示在窗体上的浮动菜单。在弹出式菜单上显示的项目取决于按下鼠标右键时指针所处的位置。
为了显示弹出式菜单，可使用ＰｏｐｕｐＭｅｎｕ 方法。这个方法使用下列语法：
［ｏｂｊｅｃｔ ．］ＰｏｐｕｐＭｅｎｕ ｍｅｎｕｎａｍｅ ［，ｆｌａｇｓ ［，ｘ ［，ｙ ［，ｂｏｌｄｃｏｍｍａｎｄ］］］］。
例如：当用鼠标右键单击一个窗体时，以下的代码显示一个名为ｍｎｕＦｉｌｅ 的菜单。可用ＭｏｕｓｅＵｐ 或者ＭｏｕｓｅＤｏｗｎ 事件来检测何时单击了鼠标右键：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＵｐ （Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ ＿Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）Ｉｆ Ｂｕｔｔｏｎ ＝２Ｔｈｅｎ ＇检查是否单击了鼠标右键ＰｏｐｕｐＭｅｎｕ ｍｎｕＦｉｌｅ ＇把文件菜单显示为一个弹出式菜单Ｅｎｄ ＩｆＥｎｄ Ｓｕｂ
直到菜单中被选取一项或者点击窗体取消这个菜单时，调用Ｐｏｐ—ｕｐＭｅｎｕ 方法后面的代码才会运行。注意每次只能显示一个弹出式菜单。在已显示一个弹出式菜单的情况下，对后面的调用ＰｏｐｕｐＭｅｎｕ 方法将不予理睬。在一个菜单控件正活动的任何时刻，调用ＰｏｐｕｐＭｅｎｕ方法均不会被理睬。
我们常常会用一个弹出式菜单来访问那些在菜单栏中不常用的选项。为创建一个不显示在菜单栏里的菜单，可在设计时使顶级菜单项目为不可见（保证在菜单编辑器里的“Ｖｉｓｉｂｌｅ”复选框没有被选上）。当Ｖｉｓｕａｌ Ｂａｓｉｃ 显示一个弹出式菜单时，指定的顶级菜单的Ｖｉｓｉｂｌｅ 属性会被忽略。
可是现在我们做一下，会发现这与Ｗｉｎ ９５的上下文菜单还是有些不同，当显示了一个上下文菜单时，如果不选取一项，而在别的地方单击鼠标右键，就会没有任何反应。怎么办呢，我们通过以下过程解决：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，＿ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）ＳｅｎｄＫｅｙｓ ＂｛ＥＳＣ｝＂Ｅｎｄ Ｓｕｂ
再试一下，看是不是和Ｗｉｎ ９５的一样了。记住，要想做一个好的软件，没有上下文菜单可是不行的。（山东省济宁市公路设计院李飚２７２１１３）
为了显示弹出式菜单，可使用ＰｏｐｕｐＭｅｎｕ 方法。这个方法使用下列语法：
［ｏｂｊｅｃｔ ．］ＰｏｐｕｐＭｅｎｕ ｍｅｎｕｎａｍｅ ［，ｆｌａｇｓ ［，ｘ ［，ｙ ［，ｂｏｌｄｃｏｍｍａｎｄ］］］］。
例如：当用鼠标右键单击一个窗体时，以下的代码显示一个名为ｍｎｕＦｉｌｅ 的菜单。可用ＭｏｕｓｅＵｐ 或者ＭｏｕｓｅＤｏｗｎ 事件来检测何时单击了鼠标右键：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＵｐ （Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ ＿Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）Ｉｆ Ｂｕｔｔｏｎ ＝２Ｔｈｅｎ ＇检查是否单击了鼠标右键ＰｏｐｕｐＭｅｎｕ ｍｎｕＦｉｌｅ ＇把文件菜单显示为一个弹出式菜单Ｅｎｄ ＩｆＥｎｄ Ｓｕｂ
直到菜单中被选取一项或者点击窗体取消这个菜单时，调用Ｐｏｐ—ｕｐＭｅｎｕ 方法后面的代码才会运行。注意每次只能显示一个弹出式菜单。在已显示一个弹出式菜单的情况下，对后面的调用ＰｏｐｕｐＭｅｎｕ 方法将不予理睬。在一个菜单控件正活动的任何时刻，调用ＰｏｐｕｐＭｅｎｕ方法均不会被理睬。
我们常常会用一个弹出式菜单来访问那些在菜单栏中不常用的选项。为创建一个不显示在菜单栏里的菜单，可在设计时使顶级菜单项目为不可见（保证在菜单编辑器里的“Ｖｉｓｉｂｌｅ”复选框没有被选上）。当Ｖｉｓｕａｌ Ｂａｓｉｃ 显示一个弹出式菜单时，指定的顶级菜单的Ｖｉｓｉｂｌｅ 属性会被忽略。
可是现在我们做一下，会发现这与Ｗｉｎ ９５的上下文菜单还是有些不同，当显示了一个上下文菜单时，如果不选取一项，而在别的地方单击鼠标右键，就会没有任何反应。怎么办呢，我们通过以下过程解决：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，＿ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）ＳｅｎｄＫｅｙｓ ＂｛ＥＳＣ｝＂Ｅｎｄ Ｓｕｂ
再试一下，看是不是和Ｗｉｎ ９５的一样了。记住，要想做一个好的软件，没有上下文菜单可是不行的。（山东省济宁市公路设计院李飚２７２１１３）
最新更新
python爬虫及其可视化
使用python爬取豆瓣电影短评评论内容
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀（爬取学校通知公告）
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求：requests模块基础使用必知必会
SQL SERVER中递归
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析：SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL，这些神奇的特性你知道吗？
openGauss内核分析：执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
uniapp/H5 获取手机桌面壁纸 (静态壁纸）
[前端] DNS解析与优化
为什么在js中需要添加addEventListener（）？
JS模块化系统
js通过Object.defineProperty() 定义和控制对象
这是目前我见过最好的跨域解决方案！
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比