frmstartarcmap.frm

AO二次开次,运行Startup启动ArcMap程序

VERSION 5.00
Begin VB.Form frmStartArcMap 
   Caption         =   "Automation (Start ArcMap)"
   ClientHeight    =   1905
   ClientLeft      =   135
   ClientTop       =   360
   ClientWidth     =   3435
   LinkTopic       =   "Form1"
   ScaleHeight     =   1905
   ScaleWidth      =   3435
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdAddData 
      Caption         =   "Add Data"
      Height          =   372
      Left            =   2040
      TabIndex        =   1
      Top             =   480
      Width           =   1092
   End
   Begin VB.CommandButton cmdStartArcMap 
      Caption         =   "Start ArcMap"
      Height          =   372
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   1092
   End
End
Attribute VB_Name = "frmStartArcMap"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_pDoc As IDocument
Private m_pApp As IApplication
Private WithEvents m_pAppRot As AppROT
Attribute m_pAppRot.VB_VarHelpID = -1
'Implements IToolBarDef



Sub StartArcMap()
  If m_pDoc Is Nothing Then
    frmStartArcMap.MousePointer = vbHourglass
    ' Start ArcMap
    Set m_pDoc = New MxDocument
    ' Get a reference to the application
    Set m_pApp = m_pDoc.Parent
    m_pApp.Caption = "sdaggsd"
    m_pApp.Document.CommandBars.HideAllToolbars
    
    ' Show ArcMap
    m_pApp.Visible = True
    cmdStartArcMap.Enabled = False
    cmdAddData.Enabled = True
    cmdQuitArcMap.Enabled = True
    frmStartArcMap.MousePointer = vbNormal
     Dim pCmdBars As ICommandBars
   Set pCmdBars = m_pDoc.CommandBars
     Dim flybar As ICommandBar
     Dim u As New UID
     'u.Value = "{4A4D6C48-ECE3-11D4-AA3C-0008C711C1CE}"
     u.Value = "SimpleSceneFlyByTool.SimpleFlyByToolbar"
     Set flybar = pCmdBars.Find(u)
    If Not flybar.IsVisible Then
      
      flybar.Dock esriDockFloat


    End If
   ' Create the new toolbar
   Dim u1 As New UID
   u1.Value = "EditAndQueryDLL.Edit"
   flybar.Add u1
   Dim pNewBar As ICommandBar
   'Set pNewBar = pCmdBars.Create("MyBar", esriCmdBarTypeToolbar)
   'pCmdBars.Find
      Dim pSelectTool As ICommandItem
     'Set pSelectTool = pCommandBars.Find(u)
   ' Add some built-in ArcMap commands to the new toolbar
   'pNewBar.Add ArcID.File_AddData
     Dim intUID As New UID
  'intUID.Value = "{60035EBC-6B3A-48E6-80E3-27AB64F7A154}"
   'pNewBar.Add intUID, 0

  End If
End Sub





Private Sub cmdStartArcMap_Click()

  StartArcMap
  
End Sub

Private Sub Form_Load()
  'Move 0, 0
  Set m_pAppRot = New AppROT

End Sub

Private Sub Form_Unload(Cancel As Integer)
  
  Set m_pAppRot = Nothing
End Sub



Private Sub m_pAppRot_AppRemoved(ByVal pApp As esriCore.IApplication)
  ' Release m_pDoc and m_pApp if you manually exit ArcMap
  If TypeOf pApp Is IMxApplication Then
    If pApp.Document Is m_pDoc Then
      Set m_pDoc = Nothing
      Set m_pApp = Nothing

    End If
  End If
End Sub