ツールバーの表示制御

投稿日: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

関連記事

  • この記事を書いた人

羽田 康祐

伊達と酔狂でエクストリーム スポーツに挑む GIS エンジニア。 GIS、IT、趣味に関して日々の出来事で学んだ記憶を記録するためにブログを書いています。同じ問題に出会った方の参考になっていただければ幸いです。GIS を使った自己紹介はこちら

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

Copyright© WINGFIELD since1981 , 2019 All Rights Reserved.