4 查找图层.txt

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

'查找图层
Function FindLayer(map As IMap, name As String) As ILayer

  Dim i As Integer 

  For i = 0 To map.LayerCount - 1    '第一层的索引为1 
    If map.Layer(i).name = name Then    '如果第i层的名称为name 
      Set FindLayer = map.Layer(i)    '获取并返回该层 
      Exit Function 
    End If 
  Next 

End Function