如何在菜单中显示图标（或图片）？

代码罗嗦着呢，你到VB相关的站点上找，很多很多；
有现成的；我这里的是在书上，抱歉；

解决方案 »

  1.   

    http://vip.6to23.com/NowCan1/tech/bmp_mnu.htm
    http://nowcan.yeah.net
      

  2.   

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