定义菜单项

定义菜单项

菜单项是通过响应GetMenuItems事件定义的。

第一次调用此事件时，MenuName是一个空字符串，代表顶级菜单。对于只有一个菜单选项的简单Add-In项，您可以返回一个字符串。

函数EA_GetMenuItems（存储库为EA.Repository，MenuLocation作为字符串，MenuName作为字符串）作为变量

EA_GetMenuItems =“＆Joe的Add-In ”

结束功能

定义子菜单

要定义子菜单，请在父菜单前面加上破折号。父项和子项的定义方式如下：

函数EA_GetMenuItems（存储库为EA.Repository，MenuLocation作为字符串，MenuName作为字符串）作为变量

选择案例菜单名称

案件 ””

家长菜单项

EA_GetMenuItems = “ - ＆Joe的Add-In ”

案例“-＆Joe的Add-In ”

'使用数组符号定义子菜单项。

'在此示例中，“图”和“树视图”组成“乔的Add-In ”子菜单。

EA_GetMenuItems = Array（“＆Diagram”，“ && Treeview”）

其他情况

MsgBox“无效菜单”，vbCritical

结束选择

结束功能

定义更多子菜单

同样，您可以定义更多子项目：

函数EA_GetMenuItems（存储库为EA.Repository，MenuLocation作为字符串，MenuName作为字符串）作为变量

选择案例菜单名称

案件 ””

EA_GetMenuItems =“ -Joe的Add-In ”

案例“ -Joe的Add-In ”

EA_GetMenuItems = Array（“-＆Diagram”，“＆TreeView”）

案例“-＆Diagram”

EA_GetMenuItems =“＆Properties”

其他情况

MsgBox“无效菜单”，vbCritical

结束选择

结束功能

启用/禁用菜单选项

要默认启用或禁用菜单选项，您可以使用此方法向用户显示特定项目：

Sub EA_GetMenuState（存储库为EA.Repository，位置为字符串，MenuName为字符串，ItemName为字符串，IsEnabled为布尔值，IsChecked为布尔值）

选择案例位置

案例“ TreeView”

'始终启用

案例“关系图”

'始终启用

案例“ MainMenu”

选择案例ItemName

案例“＆Translate”，“ Save＆Project”

如果GetIsProjectSelected（）然后

IsEnabled =假

万一

结束选择

结束选择

IsChecked = GetIsCurrentSelection（）

结束子