Archived Forums

Private WithEvents m_pEvents As MxDocument


Private Sub ICommand_OnCreate(ByVal hook As Object)
  ' The hook argument is a pointer to Application object.
  ' Establish a hook to the application
  Set m_pApp = hook
  
  Dim pMxDoc As IMxDocument
  Set pMxDoc = m_pApp.Document
  
  Dim pToc As IContentsView
  Set pToc = pMxDoc.ContentsView(0)
  Set m_pEvents = pToc
End Sub

Option Explicit
Private WithEvents m_TOC As TOCDisplayView
Sub Test()
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Set m_TOC = pMxDoc.ContentsView(0)
End Sub

Option Explicit
 
Private m_pApp As IApplication
 
Implements ICommand
 
Private Property Get ICommand_Enabled() As Boolean
    
'Add your code here!!!!!!!!!!************

'If layer name has changed, then call your sub.!!!!!****

End Property
 
Private Property Get ICommand_Checked() As Boolean
    
    ICommand_Checked = False
    
End Property
 
Private Property Get ICommand_Name() As String
    
    
    
End Property
 
Private Property Get ICommand_Caption() As String
    
    
    
End Property
 
Private Property Get ICommand_Tooltip() As String
    
    
End Property
 
Private Property Get ICommand_Message() As String
    
End Property
 
Private Property Get ICommand_HelpFile() As String
    
    
End Property
 
Private Property Get ICommand_HelpContextID() As Long
    
    ' TODO: Add your implementation here
    
End Property
 
Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE
    
    ' TODO: Add your implementation here
    
End Property
 
Private Property Get ICommand_Category() As String
    
    ICommand_Category = "AddData Test"
    
End Property
 
Private Sub ICommand_OnCreate(ByVal hook As Object)
    
    Set m_pApp = hook
    
End Sub
 
Private Sub ICommand_OnClick()

End Sub