显示当前Map的所有图层名称（VBA）

 

Public   Sub  ShowLayerName()
' /显示当前Map中的图层

     Dim  pFeatureLayer  As  IFeatureLayer
     Dim  pLayer  As  ILayer
    
     Dim  pDocument  As  IMxDocument
     Dim  pMap  As  IMap
    
     Set  pDocument  =  ThisDocument
     Set  pMap  =  pDocument.FocusMap
    
     Dim  i  As   Long
    
     For  i  =   0   To  pMap.LayerCount  -   1
     ' /用当前Map的图层对象实现相应的图层接口
     ' /如果只是为了显示图层名称，则IFeature或者ILayer接口都可以
    
         ' /实现IFeatureLayer接口
         Set  pFeatureLayer  =  pMap.Layer(i)
         ' /实现ILayer接口
         Set  pLayer  =  pMap.Layer(i)
        Debug.Print pFeatureLayer.Name
     Next
    
End Sub

Public   Sub  ShowLayerName1()
' /显示当前Map的图层

     Dim  pDocument  As  IMxDocument
     Dim  pMap  As  IMap
    
     Set  pDocument  =  ThisDocument
     Set  pMap  =  pDocument.FocusMap

     Dim  pLayers  As  IEnumLayer
     ' /实现IEnunLayer接口，类似于Collection
     Set  pLayers  =  pMap.Layers
    
     ' /以下是遍历这个Collection
     ' /实现显示所有图层的名称
     Dim  pFeatureLayer  As  IFeatureLayer
     Set  pFeatureLayer  =  pLayers.Next
    
     While   Not  pFeatureLayer  Is   Nothing
        Debug.Print pFeatureLayer.Name
         Set  pFeatureLayer  =  pLayers.Next
     Wend
    

End Sub