VB5制作上下文菜单
在Ｗｉｎ ９５中，我们常常通过单击鼠标右键来激活一个快捷菜单，从而加快了操作。此处所说的快捷菜单就是上下文菜单。上下文菜单在ＶＢ５中又称作弹出式菜单，它是独立于菜单栏而显示在窗体上的浮动菜单。在弹出式菜单上显示的项目取决于按下鼠标右键时指针所处的位置。
为了显示弹出式菜单，可使用ＰｏｐｕｐＭｅｎｕ 方法。这个方法使用下列语法：
［ｏｂｊｅｃｔ ．］ＰｏｐｕｐＭｅｎｕ ｍｅｎｕｎａｍｅ ［，ｆｌａｇｓ ［，ｘ ［，ｙ ［，ｂｏｌｄｃｏｍｍａｎｄ］］］］。
例如：当用鼠标右键单击一个窗体时，以下的代码显示一个名为ｍｎｕＦｉｌｅ 的菜单。可用ＭｏｕｓｅＵｐ 或者ＭｏｕｓｅＤｏｗｎ 事件来检测何时单击了鼠标右键：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＵｐ （Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ ＿Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）Ｉｆ Ｂｕｔｔｏｎ ＝２Ｔｈｅｎ ＇检查是否单击了鼠标右键ＰｏｐｕｐＭｅｎｕ ｍｎｕＦｉｌｅ ＇把文件菜单显示为一个弹出式菜单Ｅｎｄ ＩｆＥｎｄ Ｓｕｂ
直到菜单中被选取一项或者点击窗体取消这个菜单时，调用Ｐｏｐ—ｕｐＭｅｎｕ 方法后面的代码才会运行。注意每次只能显示一个弹出式菜单。在已显示一个弹出式菜单的情况下，对后面的调用ＰｏｐｕｐＭｅｎｕ 方法将不予理睬。在一个菜单控件正活动的任何时刻，调用ＰｏｐｕｐＭｅｎｕ方法均不会被理睬。
我们常常会用一个弹出式菜单来访问那些在菜单栏中不常用的选项。为创建一个不显示在菜单栏里的菜单，可在设计时使顶级菜单项目为不可见（保证在菜单编辑器里的“Ｖｉｓｉｂｌｅ”复选框没有被选上）。当Ｖｉｓｕａｌ Ｂａｓｉｃ 显示一个弹出式菜单时，指定的顶级菜单的Ｖｉｓｉｂｌｅ 属性会被忽略。
可是现在我们做一下，会发现这与Ｗｉｎ ９５的上下文菜单还是有些不同，当显示了一个上下文菜单时，如果不选取一项，而在别的地方单击鼠标右键，就会没有任何反应。怎么办呢，我们通过以下过程解决：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，＿ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）ＳｅｎｄＫｅｙｓ ＂｛ＥＳＣ｝＂Ｅｎｄ Ｓｕｂ
再试一下，看是不是和Ｗｉｎ ９５的一样了。记住，要想做一个好的软件，没有上下文菜单可是不行的。（山东省济宁市公路设计院李飚２７２１１３）