mod_activebar.bas

ArcEngine 这是基于AE组件的源代码

Attribute VB_Name = "Mod_ActiveBAr"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'打开文件，并选择文件类型
'
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub menuFileOpen(str_Title As String, str_Filter As String)
    On Error GoTo ErrorHandler
    '打开对话框，选择要打开的MXD文件
    frmMDIMain.CommonDialog.DialogTitle = str_Title
    frmMDIMain.CommonDialog.Filter = str_Filter
    frmMDIMain.CommonDialog.ShowOpen
    m_MxdFileName = frmMDIMain.CommonDialog.FileTitle
    m_MxdPath = Mid(frmMDIMain.CommonDialog.FileName, 1, Len(frmMDIMain.CommonDialog.FileName) - Len(m_MxdFileName))
    Call OpenMxDocument(m_MxdPath + m_MxdFileName)
ErrorHandler:
    Select Case Err.Number
      Case 1031 '输入密码
    End Select
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'设置数据视图
'
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub menuViewDataView()
    If frmMDIMap.Visible = False Then
       frmMDIMap.Show
    Else
       frmMDIMap.SetFocus
    End If
    frmMDIMain.ActiveBar.Bands("menuView").Tools("menuViewDataView").Checked = True
    frmMDIMain.ActiveBar.Bands("menuView").Tools("menuViewLayoutView").Checked = False
End Sub
  
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'设置规划视图
'
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub menuViewLayoutView()
    If frmMDIPageLayout.Visible = False Then
       frmMDIPageLayout.Show
    Else
       frmMDIPageLayout.SetFocus
    End If
    frmMDIMain.ActiveBar.Bands("menuView").Tools("menuViewDataView").Checked = False
    frmMDIMain.ActiveBar.Bands("menuView").Tools("menuViewLayoutView").Checked = True
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
      frmMDIPageLayout.PageLayoutControl.ActiveView.Clear
      Dim pObjectCopy As IObjectCopy
      Set pObjectCopy = New ObjectCopy
    
      'Get IUnknown interface (map to copy)
      Dim pToCopyMap As IUnknown
    
      Set pToCopyMap = frmMDIMap.esriCarto.Map
    
      'Get IUnknown interface (copied map)
      Dim pCopiedMap As IUnknown
      Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)
    
      'Get IUnknown interface (map to overwrite)
      Dim pToOverwriteMap As IUnknown
      Set pToOverwriteMap = frmMDIPageLayout.PageLayoutControl.ActiveView.FocusMap
      
      'Overwrite the MapControl's map
      pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap
         
      frmMDIPageLayout.PageLayoutControl.Extent = frmMDIPageLayout.PageLayoutControl.FullExtent
        'Refresh the display
      frmMDIPageLayout.esriArcCatalogUI.refresh esriViewGeography
      
End Sub