用VB制作可自调位置的弹出式菜单 胡亮 1997-01-01 　　用过Ｗｉｎｄｏｗｓ　９５的人一定都会对其灵活的弹出式菜单有很深的印象。几乎在Ｗｉｎｄｏｗｓ　９５桌面的任一地方点一下鼠标右键，都会调出一个弹出式菜单，而且即使点在最边缘的地方，它都能自动调整其位置以完整地显示出本身的菜单窗口。 　　由于ＶＢ能够很轻松地调用Ｗｉｎｄｏｗｓ函数，因此笔者试着用ＶＢ完成了这类菜单的制作。其制作原理主要是应用两个Ｗｉｎｄｏｗｓ函数：ＧｅｔＭｅｎｕ（）和ＴｒａｃｋＰｏｐｕｐＭｅｎｕ（）。前者的用途是从一个窗口中取得其菜单，其调用格式为： 　　ｈＭｅｎｕ＝ＧｅｔＭｅｎｕ（ｆｏｒｍ．ｈＷｎｄ） 　　其中ｈＭｅｎｕ为一数字，以标识调用后所取得的菜单，ｆｏｒｍ．ｈＷｎｄ为菜单所在窗口的标识数字。 　　后者的用途是将该菜单在用户指定的范围动态地显示，其调用格式为： 　　Ｒ＝ＴｒａｃｋＰｏｐｕｐＭｅｎｕ（ｈＭｅｎｕ，ｆｌａｇ，ｘ，ｙ，０，ｆｏｒｍ．ｈＷｎｄ，Ｒｅｃｔ） 　　其中ｈＭｅｎｕ为要弹出的菜单标识数，ｆｌａｇ的值用于确定是用鼠标右键还是左键来启动弹出菜单，当为０时是左键，为２时是右键。ｘ为屏幕上弹出菜单所在位置的横轴值，ｙ为相应的纵轴值，ｆｏｒｍ．ｈＷｎｄ为菜单所在窗口的标识数，Ｒｅｃｔ为菜单的坐标值，它是一个结构型变量，包含了四个子变量（Ｔｏｐ，Ｌｅｆｔ，Ｂｏｔｔｏｍ，Ｒｉｇｈｔ，前两个定义菜单左上角的坐标值，后两个定义菜单右下角的坐标值）。 　　下面举的例子即为制作的示范。其执行效果为在一窗口中用鼠标右键点击其中的一个图标后，会立即弹出一个活动菜单，无论你将主窗口移至何方，弹出的菜单都能自调位置。 　　具体的步骤如下： #2　　一、首先建立一个名为ｄｅｃｌａｒｅｓ．ｂａｓ模块文件，在该模块中写入如下代码： 　　Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ 　　Ｇｌｏｂａｌ　Ｃｏｎｓｔ　ＴＷＩＰＳ＝１ 　　Ｔｙｐｅ　Ｒｅｃｔ 　　Ｌｅｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｔｏｐ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｒｉｇｈｔ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｂｏｔｔｏｍ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｅｎｄ　Ｔｙｐｅ 　　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＴｒａｃｋＰｏｐｕｐＭｅｎｕ　Ｌｉｂ　＂Ｕｓｅｒ３２＂（ＢｙＶａｌ　ｈＭｅｎｕ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　ｗＦｌａｇｓ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　Ｘ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　Ｙ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　ｎＲｅｓｅｒｖｅｄ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　ｈＷｎｄ　Ａｓ　Ｌｏｎｇ，ｌｐＲｅｓｅｒｖｅｄ　Ａｓ　Ａｎｙ）Ａｓ　Ｌｏｎｇ 　　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＧｅｔＭｅｎｕ　Ｌｉｂ　＂Ｕｓｅｒ３２＂（ＢｙＶａｌ　ｈＷｎｄ　Ａｓ　Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ #2　　二、建一个名为ＰｏｐｕｐＭｅｎｕＤｅｍｏ的窗体（ｆｏｒｍ），在该窗体中写入如下代码： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ－ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｘ　Ａｓ　Ｓｉｎｇｌｅ，Ｙ　Ａｓ　Ｓｉｎｇｌｅ） 　　Ｄｉｍ　ＩＸ　Ａｓ　Ｉｎｔｅｇｅｒ，ＩＹ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｄｉｍ　ｈＭｅｎｕ　Ａｓ　Ｌｏｎｇ，Ｒ　Ａｓ　Ｉｎｔｅｇｅｒ 　　Ｄｉｍ　ＷｉｎＲｅｃｔ　Ａｓ　Ｒｅｃｔ 　　Ｉｆ　Ｂｕｔｔｏｎ　Ａｎｄ　２　Ｔｈｅｎ 　　ＳｃａｌｅＭｏｄｅ＝ＴＷＩＰＳ 　　ＷｉｎＲｅｃｔ．Ｌｅｆｔ＝０ 　　ＷｉｎＲｅｃｔ．Ｔｏｐ＝０ 　　ＷｉｎＲｅｃｔ．Ｒｉｇｈｔ＝Ｓｃｒｅｅｎ．Ｗｉｄｔｈ／Ｓｃｒｅｅｎ．ＴｗｉｐｓＰｅｒＰｉｘｅｌＸ 　　ＷｉｎＲｅｃｔ．Ｂｏｔｔｏｍ＝Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ／Ｓｃｒｅｅｎ．ＴｗｉｐｓＰｅｒＰｉｘｅｌＹ 　　ＩＸ＝（Ｘ＋Ｌｅｆｔ）＼Ｓｃｒｅｅｎ．ＴｗｉｐｓＰｅｒＰｉｘｅｌＸ 　　ＩＹ＝（Ｙ＋Ｔｏｐ＋Ｈｅｉｇｈｔ）＼Ｓｃｒｅｅｎ．ＴｗｉｐｓＰｅｒＰｉｘｅｌＹ 　　ｈＭｅｎｕ＝ＧｅｔＭｅｎｕ（ｆｒｍＭｅｎｕｓ．ｈＷｎｄ） 　　Ｒ＝ＴｒａｃｋＰｏｐｕｐＭｅｎｕ（ｈＭｅｎｕ，２，ＩＸ，ＩＹ，０，ｆｒｍＭｅｎｕｓ．ｈＷｎｄ，ＷｉｎＲｅｃｔ） 　　Ｅｎｄ　Ｉｆ 　　Ｅｎｄ　Ｓｕｂ #2　　三、建立一个名为ｆｒｍＭｅｎｕｓ的窗体，并在其上建立一个菜单，为简单起见，可在菜单中不加任何代码。 　　需注意的是只能建一个菜单，而该菜单包括的菜单项的数目可不限。 　　现在，一个自调位置的弹出式菜单就做成了，你不妨试试。