根据图层名找图层

Private Function funReturnLayerByLayerName(mainMap As IMapControl3, strLayerName As String) As ILayer


Dim pLayer As ILayer = Nothing

Dim pL As ILayer = Nothing

For i As Integer = 0 To mainMap.LayerCount - 1


pL = mainMap.getLayer(i)

If TypeOf pL Is IGroupLayer Then


Dim pGL As ICompositeLayer = TryCast(pL, ICompositeLayer)

For j As Integer = 0 To pGL.Count - 1


If pGL.getLayer(j).Name = strLayerName Then


End If

If True Then

pLayer = pGL.getLayer(j)