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

関連記事

  • この記事を書いた人

羽田 康祐

Twitter#一日一図法を連載中。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、元PADIダイブマスター、四アマ。 代表著書『地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

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