# MenuItem 自定义菜单
CreateObject("Stock.MenuItem")
菜单对象，包含了对菜单的基本操作支持。该对象与Menu对象一起完成了对自定义菜单的支持操作。 传统的菜单分为很多级的，主要作用是为了划分不同命令类别等，如果你没有多级菜单，那么只要用Menu对象即可完成操作，如果有多级菜单，那么必须要用此对象来进行扩充。
属性
| 属性 | 说明 |
|---|---|
| Count | 菜单项个数 |
方法
| 方法 | 说明 |
|---|---|
| Create | 创建一个子菜单，必需要首先调用该函数来完成创建工作，否则该对象的其他函数不起作用。该函数成功返回1，否则返回0 |
| AddMenu | 在指定位置添加一个菜单 |
| AddPopupMenu | 在指定位置添加一个子菜单 |
| CheckMenuItem | 将指定命令ID菜单项打上小勾 |
| GetMenuState | 如果指定命令的菜单被小勾选中，那么返回1，否则返回0 |
| GetSafeHmenu | 返回该菜单资源的句柄 |
事件
| 事件 | 说明 |
|---|---|
| MENU_Show() | 在扩展菜单中插入指定菜单内容事件 |
| MENU_Command(Cmd) | 响应单击扩展菜单中的命令事件 |
示例
'自定义的菜单栏只能在"工具"--"C++扩展"中。
Sub MENU_Show()
'创建一个变量
Dim MenuItem
'实例化MenuItem对象
Set MenuItem = CreateObject("Stock.MenuItem")
'创建子菜单
call MenuItem.Create
'添加一个菜单
call Menu.AddPopupMenu(0,MenuItem,"金字塔")
'在"金字塔"菜单中添加两个二级菜单
call MenuItem.AddMenu(0,0,"体验量化")
call MenuItem.AddMenu(1,1,"无所不能")
End Sub
Sub MENU_Command(Cmd)
Select Case Cmd
'点击二级菜单"体验量化"，弹出"您正在体验不一样的金字塔量化功能"
Case 0
MsgBox "您正在体验不一样的金字塔量化功能"
'点击二级菜单"无所不能"，弹出"您无所不能，距离成功又进一步"
Case 1
MsgBox "您无所不能，距离成功又进一步"
End Select
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
菜单效果图
