我不是一个编程高手，可也总喜欢编些程序，自从学习了对象化编程，自己编的程序也越来越像模像样。可我一看到那些呆板的菜单便如鲠在喉。我曾几次试图改变这一切，可凭借自己的编程技术都无功而返。一看到Ｏｆｆｉｃｅ
中的那带有图标的漂亮菜单，我都禁不住想：难道Ｍｉｃｒｏｓｏｆｔ 在开发编程工具时还留了一手？可没想到当我从ｈｔｔｐ
：／／ｗｗｗ．ｄａｔａｄｙｎａｍｉｃｓ ．ｃｏｍ 中下载了ＡｃｔｉｖｅＢａｒ Ｄｅｓｉｇｎｅｒ 以后，作出漂亮菜单的心愿马上就变成了现实。
首先，安装ＡｃｔｉｖｅＢａｒ 控件，启动ＶＢ建立一个新的工程文件。选择工程／部件／控件／ＡｃｔｉｖｅＢａｒ Ｃｏｎｔｒｏｌ
，调出工具箱窗口，在窗口的最下方便可以看到ＡｃｔｉｖｅＢａｒ 控件。点击此控件，在窗体中画出它，大小位置随意。在窗体中的控件上右击鼠标，选择Ｄｅｓｉｇｎｅｒ
选项，弹出控件设计程序。点取Ｔｏｏｌｓ 窗口中的按钮，在弹出的Ｍａｎａｇｅ Ｃａｔｅｇｏｒｉｅｓ 对话框中增加两个新的Ｃａｔｅｇｏｒｙ
分别为Ｆｉｌｅ 和Ｍａｉｎ。在Ｔｏｏｌｓ 窗口中选择Ｆｉｌｅ ，点取Ｉｎｓｅｒｔ／Ｔｏｏｌｓ ，在弹出的对话框中输入Ｃａｐｔｉｏｎ
为＆Ｎｅｗ，Ｎａｍｅ 为变量名ｍｉ Ｎｅｗ，Ｓｈｏｒｔｃｕｔ Ｋｅｙ 为Ｃｔｒｌ ＋Ｎ ，最关键的是点取Ｄｅｓｃｒｉｐｔｉｏｎ
中的Ｉｍａｇｅ按钮，自己创作或从剪贴板上粘贴一副图片，单击Ａｐｐｌｙ 应用按钮。同时建立Ｏｐｅｎ、Ｓａｖｅ、Ｐｒｉｎｔ
等菜单项。 点Ｂａｎｄｓ 窗口，选Ｉｎｓｅｒｔ／Ｂａｎｄ／Ｐｏｐｕｂ Ｍｅｎｕ。在ＰｏｐｕｐＢａｎｄ１上右击鼠标，选择Ｅｄｉｔ
Ｐｒｏｐｅｒｔｉｅｓ ，输入Ｃａｐｔｉｏｎ 为Ｆｉｌｅ 按ＯＫ。双击Ｂａｎｄｓ 窗口中的ＰｏｐｕｐＢａｎｄ１，选取Ｔｏｏｌｓ
中的Ｆｉｌｅ 选项，将刚才建立的图标按钮依次拖动到Ｆｉｌｅ 窗口中。在Ｔｏｏｌｓ 窗口中选取Ｍａｉｎ 选项，选Ｉｎｓｅｒｔ／Ｔｏｏｌｓ
，输入Ｃａｐｔｉｏｎ 为＆Ｆｉｌｅ ，Ｎａｍｅ 为ｍｉ Ｎａｍｅ ，Ｓｈｏｒｔｃｕｔ Ｋｅｙ 为Ｃｔｒｌ ＋Ｆ，ＳｕｂＢａｎｄ
为ＰｏｐｕｂＢａｎｄ１。选择Ｉｎｓｅｒｔ／Ｂａｎｄ／Ｍｅｎｕ Ｂａｒ ，双击Ｂａｎｄｓ 中的ＭｎｕＢａｎｄ１，将Ｔｏｏｌｓ
窗口中的Ｍａｉｎ 选项下的Ｆｉｌｅ 图标按钮拖入ＭｎｕＢａｎｄ１窗口中。结果如下图所示，可以将这个过程保存起来。回到ＶＢ工程窗口中，右击鼠标右键，查看ＡｃｔｉｖｅＢａｒ１的代码并加
入如下内容：
Ｐｒｉｖａｔｅ Ｓｕｂ ＡｃｔｉｖｅＢａｒ１＿Ｃｌｉｃｋ（ＢｙＶａｌ Ｔｏｏｌ Ａｓ ＡｃｔｉｖｅＢａｒＬｉｂｒａｒｙＣｔｌ
．Ｔｏｏｌ）
Ｓｅｌｅｃｔ Ｃａｓｅ Ｔｏｏｌ ．Ｎａｍｅ
Ｃａｓｅ ＂ｍｉ Ｎｅｗ＂
ＮｅｗＦｉｌｅ ＇Ｃｒｅａｔｅ ａ ｎｅｗｄｏｃｕｍｅｎｔ
Ｃａｓｅ ＂ｍｉ Ｏｐｅｎ＂
ＯｐｅｎＦｉｌｅ ＇Ｏｐｅｎ ａｎ ｅｘｉｓｔｉｎｇｆｉｌｅ
Ｃａｓｅ ＂ｍｉＳａｖｅ＂
ＳａｖｅＦｉｌｅ ＇Ｓａｖｅ Ｆｉｌｅ
Ｃａｓｅ ＂ｍｉ Ｐｒｉｎｔ＂
ＰｒｉｎｔＦｉｌｅ ＇Ｐｒｉｎｔ ｃｕｒｒｅｎｔ ｏｐｅｎｆｉｌｅ
Ｅｎｄ Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
编译运行，大功告成了，我终于看到了具有图标的下拉菜单，用Ａｃｔｉｖｅ Ｂａｒ 还能够制作其他很多东西，各位朋友可要细细品味。
（湖北省丹江口职工大学机电科杨勇４４２７００）