ドッカブル ウィンドウの表示

Public Sub ShowDockableWindow()
 
    Dim pDockableWindowManager As IDockableWindowManager
    Set pDockableWindowManager = Application
     
    Dim pUID As IUID
    Set pUID = New UID
    'pUID.Value = "{EA61CE18-4B4F-4767-BA31-A11EC1C63DBB}"  '[フィーチャ作成] ウィンドウ
    pUID.Value = "esriEditor.CreateFeatureDockWin"          '[フィーチャ作成] ウィンドウ
    pUID.Value = "esriGeoprocessingUI.GPCommandWindow"
    '※ドッカブル ウィンドウのUID特定には「コンポーネント カテゴリ マネージャ」を使用
    '　"ESRI Mx Dockable Window" カテゴリ
     
    Dim pDockableWindow As IDockableWindow
    Set pDockableWindow = pDockableWindowManager.GetDockableWindow(pUID)
    pDockableWindow.Show Not pDockableWindow.IsVisible
 
End Sub