createmapbook.cls

一个不错的插件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CreateMapBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

' Copyright 2006 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 /arcgis/developerkit/userestrictions.

Option Explicit

Implements ICommand

Dim m_pApp As IApplication

Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE
20:   ICommand_Bitmap = frmResources.picBook.Picture.handle
End Property

Private Property Get ICommand_Caption() As String
24:   ICommand_Caption = "Create Map Book"
End Property

Private Property Get ICommand_Category() As String
28:   ICommand_Category = "Developer Samples"
End Property

Private Property Get ICommand_Checked() As Boolean
32:   ICommand_Checked = False
End Property

Private Property Get ICommand_Enabled() As Boolean
36:   ICommand_Enabled = True
End Property

Private Property Get ICommand_HelpContextID() As Long

End Property

Private Property Get ICommand_HelpFile() As String

End Property

Private Property Get ICommand_Message() As String
48:   ICommand_Message = "Map Book Creation"
End Property

Private Property Get ICommand_Name() As String
52:   ICommand_Name = "DSMapBookUIPrj.CreateMapBook"
End Property

Private Sub ICommand_OnClick()
On Error GoTo ErrHand:
  Dim pMapBook As IDSMapBook
  'Check to see if a MapSeries already exists
59:   Set pMapBook = GetMapBookExtension(m_pApp)
  If pMapBook Is Nothing Then Exit Sub
  
62:   If pMapBook.ContentCount > 0 Then
63:     MsgBox "You must remove the existing Map Series before adding another."
    Exit Sub
65:   End If
  
  'Call the wizard for setting parameters and creating the series
68:   Set frmMapSeriesWiz.m_pApp = m_pApp
69:   frmMapSeriesWiz.Show vbModal

  Exit Sub
ErrHand:
73:   MsgBox "CreateMapBook_OnClick - " & Err.Description
End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)
77:   Set m_pApp = hook
End Sub

Private Property Get ICommand_Tooltip() As String
81:   ICommand_Tooltip = "Create Map Book"
End Property