clsraster2.cls

ao例子

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsRaster2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Implements esriSystemUI.ICommand


Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE
 
End Property

Private Property Get ICommand_Caption() As String

  ICommand_Caption = "连接SDE并加载显示栅格数据"

End Property

Private Property Get ICommand_Category() As String

  ICommand_Category = "连接sde"
  
End Property

Private Property Get ICommand_Checked() As Boolean

  ICommand_Checked = False
  
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

End Property

Private Property Get ICommand_Name() As String

  ICommand_Name = "raster"
  
End Property

Private Sub ICommand_OnClick()

  frmSub.Show vbModal
  
  
End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)


    frmSub.Application = hook
 
    Set pMxDoc = m_pApp.Document
    Set pmap = pMxDoc.FocusMap
 
End Sub

Private Property Get ICommand_Tooltip() As String

  ICommand_Tooltip = "raster to sde"
  
End Property