vba03-3.txt

来自「ao的一些代码集合」· 文本 代码 · 共 17 行

Sub MyMacro()
    Dim pMxDocument As IMxDocument    '地图文档
    Dim pMap As IMap    '地图
    Dim lCount As Long
    Dim lIndex As Long
    Set pMxDocument = Application.Document    '获取当前应用程序的文档
    Set pMap = pMxDocument.FocusMap    '获取当前地图
    lCount = 0
    For lIndex = 0 To (pMap.LayerCount - 1)
        If TypeOf pMap.Layer(lIndex) Is IFeatureLayer Then    '如果当前地图的第lIndex层的类型是IFeatureLayer
            lCount = lCount + 1    '计数器加1
        End If
    Next lIndex
    MsgBox "Number of the feature layers " & _
    "in the active map: " & lCount    '显示当前地图的要素层的总数
End Sub