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

投稿日:2016/9/1 (木) 更新日:

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

関連記事

-プログラミング, ArcGIS
-, ,

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.