本例要实现的是如何创建定制的菜单(Menu)

       本例要实现的是如何创建定制的菜单(Menu)

       l 要点

       用户通过在类模块中实现IMenuDef接口来创建定制的菜单(Menu),如果要使菜单出现在Customize Dialog的Menus类型中，必须同时实现IrootLevelMenu接口，它表明菜单为root menu。IMenuDef接口包括 Caption、ItemCount及Name三个属性和GetItemInfo方法。类似IToolBarDef(参照1.2.3)

       l 程序说明

       程序在类模块中实现IMenuDef接口来创建定制的菜单(Menu)。

       l 代码

Option Explicit

'Implement the IMenuDef interface and IRootLevelMenu interface

Implements IMenuDef

Implements IRootLevelMenu

Private Property Get IMenuDef_Caption() As String

     ' Set the string that appears as the menu's title

     IMenuDef_Caption = "MyMenu"

End Property

Private Sub IMenuDef_GetItemInfo(ByVal pos As Long, _

ByVal itemDef As esriCore.IItemDef)

     ' Define the commands that will be on the menu. The built-in ArcMap

     ' Full Extent command, and Fixed Zoom In command are added to this custom menu.

     ' ID is the ClassID of the command. Group determines whether the command

     ' begins a new group on the menu

     Select Case pos

     Case 0

         itemDef.ID = "promenu.clsmultitem"

         itemDef.Group = False

     Case 1

         itemDef.ID = "esriCore.FullExtentCommand"

         itemDef.Group = True

     Case 2

         itemDef.ID = "esriCore.ZoomInFixedCommand"

         itemDef.Group = False

     End Select

End Sub

Private Property Get IMenuDef_ItemCount() As Long

     ' Set how many commands will be on the menu

     IMenuDef_ItemCount = 3

End Property

Private Property Get IMenuDef_Name() As String

     ' Set the internal name of the menu.

     IMenuDef_Name = "MyMenu"

End Property