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

関連記事

  • この記事を書いた人

羽田 康祐

好きな地図投影法 はパース・クィンカンシャル図法とマクブライド・トーマス平極四次曲線図法。広島市出身。GIS上級技術者、Esri認定インストラクター、測量士補、潜水士、元PADIダイブマスター、四アマ。GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

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

© 2021 WINGFIELD since1981