グループ レイヤー内のレイヤー表示を反転

 2016/9/1 (木)    

Private WithEvents m_pLayerEvnets As FeatureLayer
 
'イベント初期化
Private Function MxDocument_OpenDocument() As Boolean
    Call StartListening
End Function
 
'イベント初期化
Sub SetEvent()
   
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
     
    Set m_pLayerEvnets = pMxDocument.FocusMap.Layer(0)
     
End Sub
 
 
'レイヤ表示変更時のイベント
'※このイベント内でIMxDocument::UpdateContents()を実行すると,
' ILayer::Visibleは表示操作変更前の状態が保持されているため,
' レイヤ表示状態に不整合が生じる。
Private Sub m_pLayerEvnets_VisibilityChanged(ByVal currentState As Boolean)
     
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
     
    Dim pContentsView As IContentsView
    Set pContentsView = pMxDocument.CurrentContentsView
     
    Dim pCompositeLayer As ICompositeLayer
    Set pCompositeLayer = m_pLayerEvnets    'QI
                
    'グループレイヤ内のレイヤ表示を反転
    Dim i As Long
    For i = 0 To pCompositeLayer.Count - 1
     
        pCompositeLayer.Layer(i).Visible = currentState
         
        pContentsView.Refresh pCompositeLayer.Layer(i)  'グループレイヤ内の個々のレイヤ表示状態のみを更新
         
    Next i
 
    pMxDocument.ActiveView.Refresh
 
End Sub

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.