|
应用VBA编制小型管理系统时，菜单和工具栏是不可缺少的工具，为此本人学习、参考了网上一些已有的例程，奋战月余（水平有限，边学习边消化边实作），制作一个“自定义菜单设计器”，现奉献给大家，希望能给大家工作带来一些帮助。有关事项说明如下： 一、特别提醒 执行相应功能后，本程序会对打开的工作簿添加工作表和自动写入代码，所以请你先保存一个空工作簿再测试，否则，虽然知道程序不会破坏你的数据，但我不确保不会有其他意外毁了你的数据。 菜单设计器程序是全部源码提供给大家分享，代码一定不是最优，如有建议，欢迎批评指正，程序里面涉及的对模块编程，想学的自行看吧。 程序里图标浏览、自动缩进功能是从网上拿来的，感谢作者。 二、菜单设计器要正常使用 1、需设置信任对于“Visual Basic 项目”的访问，具体操作步骤：工具→选项→安全性→宏安全性→勾选。 2、由于生成的代码直接嵌入到工作簿中，所以如果是已加密的工作簿，需要解密才能实现对工作簿写代码。 3、要操作的工作簿必须是已保存过的。 三、主要功能介绍 1、载入菜单、载入工具栏：是从活动工作簿中的MyMenuBarData（菜单库工作表）取相应的自定义菜单数据。 2、保存：是把窗体中的菜单数据保存到MyMenuBarData，MyMenuBarData程序会自行添加，并为了不影响界面而已作隐藏处理。 3、校核：对窗体中的菜单数据设置进行校对核查，有错会提示。 4、预览：对你的菜单设置进行预览，直接看效果，预览后点“恢复”返回。 5、生成代码Ⅰ：根据窗体中的菜单数据，直接生成可执行代码，并把代码写入到活动工作簿中的“自定义菜单Zjj”模块下。此方式不需要MyMenuBarData支持。 6、生成代码Ⅱ：根据窗体中的菜单数据，生成菜单驱动代码，并把代码写入到活动工作簿中的“自定义菜单Zjj”模块下。此方式需要MyMenuBarData支持。 7、仅显示图标：主要是考虑有时候工具栏只需以图标方式显示，不需要文字。 8、选取图标：可对菜单项设置或取消图标。 对以上所述，勿喜请飘过。
菜单设计器.rar
(71.06 KB, 下载次数: 1022)
| 
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2012-6-13 20:31
楼主
发表于 2012-6-14 20:34
