在Arcmap中如何添加ContentsView?

如何用VC在Arcmap中添加类似Display和Source的ContentsView?请教高手,如果没有VC的代码,VB,VBA也行,谢谢!

你可以看看例子里有个mapbook的东东，应该有点帮助

谢谢大哥,好DD,我正在看!

<P>我晕,还没搞顶,二楼的大虾请帮我看看,我用VB做成DLL的注册后,打开ArcMap还是没有添加属性页,好郁闷,帮忙看看!</P><P>我添加了一个Form(命名为dataView),在Form里添加了ImageList(命名为dataBaseView),然后在类代码如下:</P><P>Option Explicit</P><P>Private m_pDoc As IMxDocument
Private m_pMap As IMap
Private m_bIsVisible As Boolean
Private m_ContextItem As Variant
Private m_SelectedItem As Variant
Private m_ShowLines As Boolean</P><P>Implements IContentsView</P><P>Private Sub IContentsView_Activate(ByVal parentHWND As esriCore.OLE_HANDLE, ByVal Document As esriCore.IMxDocument)</P><P>   m_bIsVisible = True
  Load dataBaseView
End Sub</P><P>Private Sub IContentsView_AddToSelectedItems(ByVal Item As Variant)</P><P>End Sub</P><P>Private Property Let IContentsView_ContextItem(ByVal RHS As Variant)
On Error GoTo ErrHand:
  m_ContextItem = RHS
  
  Exit Property
ErrHand:
  MsgBox "Let IContentsView_ContextItem - " ; Err.Description
End Property</P><P>Private Property Get IContentsView_ContextItem() As Variant
On Error GoTo ErrHand:
  IContentsView_ContextItem = m_ContextItem
  
  Exit Property
ErrHand:
  MsgBox "Get IContentsView_ContextItem - " ; Err.Description
End Property</P><P>Private Sub IContentsView_Deactivate()
   Unload dataBaseView
  
End Sub</P><P>Private Property Get IContentsView_hWnd() As esriCore.OLE_HANDLE
  IContentsView_hWnd = dataBaseView.TreeView1.hwnd
End Property</P><P>Private Property Get IContentsView_Name() As String
  IContentsView_Name = "数据库"
End Property</P><P>Private Property Let IContentsView_ProcessEvents(ByVal RHS As Boolean)</P><P>End Property</P><P>Private Sub IContentsView_Refresh(ByVal Item As Variant)</P><P>End Sub</P><P>Private Sub IContentsView_RemoveFromSelectedItems(ByVal Item As Variant)</P><P>End Sub</P><P>Private Property Let IContentsView_SelectedItem(ByVal RHS As Variant)
On Error GoTo ErrHand:
  m_SelectedItem = RHS
  
  Exit Property
ErrHand:
  MsgBox "Let IContentsView_SelectedItem - " ; Err.Description
End Property</P><P>Private Property Get IContentsView_SelectedItem() As Variant
On Error GoTo ErrHand:
  IContentsView_SelectedItem = m_SelectedItem
  
  Exit Property
ErrHand:
  MsgBox "Get IContentsView_SelectedItem - " ; Err.Description
End Property</P><P>Private Property Let IContentsView_ShowLines(ByVal RHS As Boolean)
  m_ShowLines = RHS
End Property</P><P>Private Property Get IContentsView_ShowLines() As Boolean
  IContentsView_ShowLines = m_ShowLines
End Property</P><P>Private Property Let IContentsView_Visible(ByVal RHS As Boolean)
  m_bIsVisible = RHS
End Property</P><P>Private Property Get IContentsView_Visible() As Boolean
  IContentsView_Visible = m_bIsVisible
End Property
</P>