pttrackingimportcmd.cls

来自「esir公司的产品MapObject的vb例子」· CLS 代码 · 共 89 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TrackingImportCMD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'
' ESRI
' 3D Analyst Developer Sample - sxTrackingEventImport
' TrackingImportCMD.cls
' ICommand implementation for the sxTrackingEventImport tool
'
' Requires references to
' ESRI ArcScene Object Library
' ESRI ArcMap Object Library
' ESRI TIN Object Library
' ESRI Object Library

Option Explicit

Implements ICommand

Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE

End Property

Private Property Get ICommand_Caption() As String
  ICommand_Caption = "Point Event Animation Import..."
End Property


Private Property Get ICommand_Category() As String
  ICommand_Category = "3D Analyst Developer Samples (Animation)"
End Property


Private Property Get ICommand_Checked() As Boolean

End Property


Private Property Get ICommand_Enabled() As Boolean
  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
  ICommand_Message = "Import animation keyframes from point features"
End Property

Private Property Get ICommand_Name() As String
  ICommand_Name = "EventImportCMD"
End Property

Private Sub ICommand_OnClick()
  On Error Resume Next
  frmEventQuantityAnimator.RunMe
End Sub


Private Sub ICommand_OnCreate(ByVal hook As Object)
  Set g_pApp = Application
  Set g_pSxDoc = g_pApp.Document
End Sub


Private Property Get ICommand_Tooltip() As String
  ICommand_Tooltip = "Import animation keyframes from point features"
End Property