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