YouTube | Facebook | X(Twitter) | RSS

ツールバーの形状制御

2016/9/1 (木)

VBA
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Sub ShowTool()
    Dim pDocument As IDocument
    Set pDocument = ThisDocument
      
    Dim pCommandBars As ICommandBars
    Set pCommandBars = pDocument.CommandBars
      
    Dim pCommandBar As ICommandBar
    Set pCommandBar = pCommandBars.Find("Project.講習会ツール") 'カスタムツールバー
      
    pCommandBar.Dock esriDockToggle
    Dim pWindowPosition As IWindowPosition
      
    Dim pWindowPosition2 As IWindowPosition
    Set pWindowPosition2 = Application
      
    If pCommandBar.IsVisible Then
      Set pWindowPosition = pCommandBar
      pWindowPosition.Width = 204
      ptoolbar.Dock esriDockFloat
      pWindowPosition.Top = (pWindowPosition2.Height - pWindowPosition.Height) / 2
      pWindowPosition.Left = pWindowPosition2.Width - pWindowPosition.Width - 10
        
    End If
        
End Sub
  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

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

S