記事

属性テーブル ウィンドウへのアクセス

Private Sub InitEvents()
    Dim pAppWindows As IApplicationWindows
    Dim pWindowSet As ISet
    Dim pTableWindow As ITableWindow
    Dim pTableControl As ITableControl
    Dim pSelSet As ISelectionSet
    Dim pTableWindow3 As ITableWindow3
     
    Set pTableWindow3 = New TableWindow
    pTableWindow3.FindOpenTableWindows pWindowSet
    Set pAppWindows = Application
    pWindowSet.Reset
    Set pTableWindow = pWindowSet.Next
     
    Do Until pTableWindow Is Nothing
        Set pTableControl = pTableWindow.TableControl
        Set mTableViewEvents = pTableControl
        Set pTableWindow = pWindowSet.Next
    Loop
End Sub
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

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