Hi allWhenever I modify a layer and the layer is in a group the following function FindLayer(ByRef pMap As ESRI.ArcGIS.Carto.IMap) does not find it.Please advice 'finish edit operation
m_pEditor.StopOperation(("Merge Network Features"))
ErrCode = 2
'refresh features
Dim pRefresh As ESRI.ArcGIS.Geodatabase.IInvalidArea
pRefresh = New ESRI.ArcGIS.Carto.InvalidArea
pRefresh.Display = m_pEditor.Display
pRefresh.Add(pNewFeature)
pRefresh.Invalidate(-2)
'select new feature
Dim pMap As ESRI.ArcGIS.Carto.IMap
pMap = m_pEditor.Map
pMap.ClearSelection()
pMap.SelectFeature(FindLayer(pMap), pNewFeature) #######DOES NOT WORK
Me.Close()
' Exit Sub
Catch ex As Exception
Debug.Print(ex.Message)
MsgBox("Error Message: " & ex.Message)
End Try
End Sub
Public Function FindLayer(ByRef pMap As ESRI.ArcGIS.Carto.IMap) As ESRI.ArcGIS.Carto.ILayer
'helper function to find a layer for a feature class
Dim i As Integer
Dim pLayer As ESRI.ArcGIS.Carto.ILayer
Dim pFeatLayer As ESRI.ArcGIS.Carto.IFeatureLayer
Try
For i = 0 To pMap.LayerCount - 1
pLayer = pMap.Layer(i)
Debug.WriteLine(player.Name)
'UPGRADE_WARNING: TypeOf has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
If TypeOf pLayer Is ESRI.ArcGIS.Carto.IFeatureLayer Then
pFeatLayer = pLayer
'Check if the layer is valid, ie: it's data source is valid....
'UPGRADE_WARNING: Couldn't resolve default property of object pFeatLayer.Valid. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If pFeatLayer.Valid Then
'UPGRADE_WARNING: Couldn't resolve default property of object m_pFC.ObjectClassID. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Couldn't resolve default property of object pFeatLayer.FeatureClass.ObjectClassID. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If pFeatLayer.FeatureClass.ObjectClassID = m_pFC.ObjectClassID Then
pLayer = pFeatLayer
FindLayer = pLayer
End If
End If
End If
Next i
Catch ex As Exception
Debug.Print(ex.Message)
MsgBox("Error Message: " & ex.Message)
End Try
End Function