YouTube | Facebook | Twitter  Feed

ツールバーの表示制御

2016/9/1 (木)

Public Sub ModifyToolbar()
    'ThisDocumentの取得
    Dim pDocument As IDocument
    Set pDocument = ThisDocument
     
    'CommandBarsの取得
    Dim pCommandBars As ICommandBars
    Set pCommandBars = pDocument.CommandBars
     
    'CommandBarの取得
    Dim pCommandBar As ICommandBar
    Set pCommandBar = pCommandBars.Find(arcid.Tools_Toolbar)        'ツール ツールバー
         
    'ツールバーの制御
    pCommandBar.Dock esriDockFloat      'フロート
     
    pCommandBar.Dock esriDockTop        '天
    pCommandBar.Dock esriDockBottom     '地
    pCommandBar.Dock esriDockLeft       '左
    pCommandBar.Dock esriDockRight      '右
     
    pCommandBar.Dock esriDockShow       '表示
    pCommandBar.Dock esriDockHide       '非表示
    pCommandBar.Dock esriDockToggle     'トグル(表示・非表示切り替え)
 
    '参照ツールバーを基準に移動
    Dim pCommandBar2 As ICommandBar
    Set pCommandBar2 = pCommandBars.Find(arcid.Standard_Toolbar)    '標準 ツールバー
    pCommandBar.Dock esriDockRight, pCommandBar2
 
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

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

© 2020 WINGFIELD since1981