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

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