' Copyright 2008 ESRI
'
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
'
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
'
' See use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
'
'
' Toolbar containing the Split and Combine commands.
'
Option Explicit
Implements IToolBarDef
Private Property Get IToolBarDef_Caption() As String
9: IToolBarDef_Caption = "Map Series"
End Property
Private Sub IToolBarDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As IItemDef)
Select Case pos
Case 0
15: itemDef.ID = "DSMapBookUIPrj.CreateMapBook"
Case 1
17: itemDef.ID = "DSMapBookUIPrj.PageIdentifier"
Case 2
19: itemDef.ID = "DSMapBookUIPrj.clsMapGridButton"
Case 3
21: itemDef.ID = "DSMapBookUIPrj.clsStripMapButton"
22: End Select
End Sub
Private Property Get IToolBarDef_ItemCount() As Long
26: IToolBarDef_ItemCount = 4
End Property
Private Property Get IToolBarDef_name() As String
30: IToolBarDef_name = "DSMapBookUIPrj.MapSeriesBar"
End Property