菜单动态生成

zhw79 · 发表于 2010-4-6 16:34

代码经删减（涉及公司信息部分），菜单项数据以数据库形式存在表“菜单DATA”中，可自行更改菜单项及执行的程序，更改后重新点击下“功能菜单”进行更新
注：菜单项相关类型，位置见8楼

[ 本帖最后由 zhw79 于 2010-4-10 16:53 编辑 ]

caizivv · 发表于 2010-4-6 16:50

怎么附件是加载宏文件啊= =，还要自己改属性

zhw79 · 发表于 2010-4-6 16:56

恩！是加载宏，我这里完整的系统是数据文件中无任何代码，程序只存于加载宏中
要更改按ALT+F11进入VBE,更改ThisWorkbook.IsAddin为False就可以查看

老伙计2008 · 发表于 2010-4-6 17:02

楼主辛苦，支持一下

lb_bn · 发表于 2010-4-6 20:19

谢谢楼主分享,不错的工具.

ningyong58 · 发表于 2010-4-9 15:46

谢谢，楼主的指点．又学到一个知识点．

zhw79 · 发表于 2010-4-10 16:52

CommandBar_Button_Style
类型值常量名描述
0 msoButtonAutomatic 默认值，对于菜单栏，等于msoButtonIconAndCaption，对于工具栏，等于msoButtonIcon
1 msoButtonIcon 在工具栏上只显示图标，在菜单栏上只显示标题
2 msoButtonCaption 只显示标题，忽略图标
3 msoButtonIconAndCaption 显示图标，并在图标右边显示标题
6 双排文字
7 msoButtonIconAndCaptionBelow 对于菜单栏，等同于msoButtonIconAndCaption，对于工具栏，在图标下方显示标题
11 上图标+下文字
14 msoButtonWrapCaption 同msoButtonCaption类似，只是如果标题太长时分行显示
15 1层图标+2，3层文字

CommandBar_Combo_Style
类型值常量名描述
0 msoComboNormal "没有标题
如果命令栏的Type属性设置为msoControlComboBox，该命令栏可以使用ComboBox控件的各种方法和属性，例如AddItem方法、Clear方法等。如果创建时设置了Caption属性为“请选择:”，则可以使用Controls(”请选择:”)来表示该复合框命令栏。"
1 msoComboLabel 左边有标题

CommandBar_Position
类型值常量名描述
0 msoBarLeft 工具栏显示在工作表左边
1 msoBarTop 工具栏显示在工作表上边
2 msoBarRight 工具栏显示在工作表右边
3 msoBarBottom 工具栏显示在工作表下边
4 msoBarFloating 工具栏浮动显示
5 msoBarMenuBar 这个常数表示创建菜单栏，不用于创建工具栏
6 msoBarPopup 这个常数表示创建弹出菜单

CommandBar_Type
类型值常量名描述
1 msoControlButton 普通按钮类型
2 msoControlEdit 文本框,编辑框类型
3 msoControlDropdown 复合框类型,不能输入新项目
4 msoControlComboBox 组合框,和DropDown一样的复合框类型，允许输入新项目
10 msoControlPopup 弹出菜单
23 ?

FXSHENG · 发表于 2010-4-10 17:00

下载备用,感谢分享!

execl · 发表于 2010-4-10 21:21

留个印，备用，谢谢分享

JLF2003 · 发表于 2010-4-10 23:35

下载备用,感谢分享!

		自动登录	找回密码
密码			免费注册

[分享] 菜单动态生成