ArcGIS二次开发之一：在ArcMap中启动ArcCatalog的代码实现

    在ArcMap的快捷工具栏中，可以利用快捷按钮直接启动ArcCatalog，下面的代码将实现这一操作。 

Sub ShowArcCatalog()

    Dim pAppROT As AppROT

    Dim pAppROTCountInt As Integer

    Dim pAppROTCount As Integer

    Dim pCommand As ICommandItem

    Dim pAppWin As IWindowPosition

    Dim i As Integer

    Set pAppROT = New AppROT

    pAppROTCountInt = pAppROT.Count

    ' 启动ArcCatalog

    Set pCommand = Application.Document.CommandBars.Find(ArcID.Tools_Catalog)

    pCommand.Execute

    '  将ArcCatalog应用程序添加入AppRPT

    Do Until pAppROTCount = (pAppROTCountInt + 1)

        pAppROTCount = pAppROT.Count

    Loop

   ' 获取正在运行的ArcCatalog程序

    If TypeOf pAppROT.Item(pAppROTCount - 1) Is IGxApplication Then

      Set pAppWin = pAppROT.Item(pAppROTCount - 1)

      pAppWin.Move 10, 10, 600, 500

    End If

End Sub

    这段程序实现的关键在于对AppROT类和接口的理解，AppROT的全称是application running object table，用来记录当前正在运行的ArcGIS应用程序，但它只记录由IApplication实现的对象。当ArcGIS的应用程序运行的时候会自动向AppROT 注册，当关闭的时候也会自动清除。所以可以通过AppROT获取正在运行的所有ArcGIS应用程序，同时ArcObjects开发者也可以将自己利用IApplication产生的对象向AppRPT注册。

    AppROT主要实现IAppROT接口，利用这个接口提供的Add和Remove方法实现向AppROT添加和移出对象，利用Count方法可以获取当前运行的ArcGIS应用程序总数。而Item方法则提供了当前运行的ArcGIS应用程序索引，利用Item方法开发者可以方面的获取任何一个正在运行的程序。

    ArcID.Tools_Catalog主要是获取ArcCatalog对象，ArcID提供ArcGIS内置的菜单、工具栏等，比如如果想获取添加数据按钮，则使用ArcID.File_AddData，每一个ArcID都有一个唯一的标识码，开发者也可以直接通过标识码来进行获取。