定义菜单项

定义菜单项

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

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

     函数EA_GetMenuItems（存储库为EA.Repository，MenuLocation为String，MenuName为String）作为Variant

           EA_GetMenuItems =“＆Joe's Add-In”

     结束功能

定义子菜单

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

函数EA_GetMenuItems（存储库为EA.Repository，MenuLocation为String，MenuName为String）作为Variant

      选择Case MenuName

      案件 ””

            '父菜单项

            EA_GetMenuItems =“ - ＆Joe's Add-In”

      案例“ - ＆乔的加载项”

            '使用数组表示法定义子菜单项。

            '在这个例子中，“Diagram”和“Treeview”组成了“Joe's Add-In”子菜单。

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

      Case Else

            MsgBox“无效菜单”，vbCritical

      结束选择

结束功能

定义更多子菜单

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

函数EA_GetMenuItems（存储库为EA.Repository，MenuLocation为String，MenuName为String）作为Variant

      选择Case MenuName

      案件 ””

            EA_GetMenuItems =“ - 乔的加载项”

      案例“-Joe的插件”

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

      案例“ - ＆图”

            EA_GetMenuItems =“＆Properties”

      Case Else

            MsgBox“无效菜单”，vbCritical

      结束选择

结束功能

启用/禁用菜单选项

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

Sub EA_GetMenuState（Repository As EA.Repository，Location As String，MenuName As String，ItemName As String，IsEnabled As Boolean，IsChecked As Boolean）

      选择案例位置

      案例“TreeView”

            '始终启用

      案例“图”

            '始终启用

      案例“MainMenu”

            选择Case ItemName

            Case“＆Translate”，“Save＆Project”

                  如果GetIsProjectSelected（）那么

                        IsEnabled = False

                  万一

            结束选择

      结束选择

      IsChecked = GetIsCurrentSelection（）

结束子